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ÉDITORIAL 


Chers amis, 

Encore un numéro chargé jusqu'à la geule, avec un grand nombre de 
programmes. Faute de place, pas de codes barre, mais un article fort 
intéressants à leur sujet (d'autres suivront). De grands sujets à débattre ici. 
1) la maturité de la 41C, 2) Son remplacement, 3) nos relations avec HP. 

1) faute de place, il n'y a pas de rubrique "sur le marché'', et pourtant 
il y a beaucoup de nouveautés. Au moins trois nouveaux modules en microcode: 
un en Angleterre donne toutes les fonctions synthétiques au clavier + un 
assembleur pour usage du MLDL (nous en avons commandé 50, prix environ 
1000F, vous pouvez retenir dés maintenant, livraison Juin), deux en France: 
ADV PRT advanced Printer, module par Stéphane Barizien distribué dés 
maintenant sous forme d'EPROM par la SCIP, facilite énormément l'utilisation 
des imprimantes et de la vidéo à partir de la 41 en rendant immédiatement 
accessibles les séquences d'échappement, l'autre sera un module de travail sur 
les tableaux: toutes opérations sur les matrices, tri (100 registres en 1 mn), 
également disponible à la SCIP. Toujours à la SCIP (je n'y peux rien) des 
EPROM "Navigation" (pour bateaux, un trés beau travail de Hamelin, à 
rapprocher de son article publié dans ce numéro). La HP-41 est maintenant 
une machine adulte, avec de trés nombreux logiciels opérationnels (on annonce 
aussi une comptabilité professionnelle faite par Jacques Vaucelle), ce qui en 





fait un outil d'une puissance exceptionnelle. Cela devrait lui assurer une 
durée de vie inconnue jusqu'à présent dans le domaine de la calculatrice de 
poche. Ajoutons aussi, faute de pouvoir le mettre ailleurs, que Roberts 
Schwartz accepte de faire pour vous, à la demande des planches de codes 
barre à 10F la planche envron. II suffit de lui fournir les programmes ou les 


données sur cartes où cassettes. Un service réservé au club et qui devrait 
être trés utile. 

2) C'est à ce moment que nous voyons arriver le remplaçant HP-71. La 
lutte sera rude entre l'expérience et la puissance. Le prochain numéro sera un 


spécial 71", ne le manquez à aucun prix! Dans ce numéro des essais détaillés 
et complets de cet appareil, ses performances, faut-il l'acheter? un débat 
riche, à la mesure de PPC-T. Tous ceux d'entre vous qui auraient eu 
l'occasion d'approcher Un appareil de pré-série sont invités à nous faire 
parvenir leurs impressions. Il faut noter également que nous assistons en ce 
moment dans le club à une croissance rapide des achats de HP-75, Cet 
appareil commence à avoir des logiciels puissants. Il est encore trés sous 


exploité et devrait connaitre chez nous un développement important. 

3) Hewlett-Packard semble décidé à promouvoir vigoureusement ses 
nouveaux produits (150 et 71). Ils veulent améliorer leurs relations avec les 
clubs, mais pour celà ne voudraient voir qu'une tête, c'est à dire qu'un 
journal. Le chapitre de Paris fait en ce moment la sourde oreille, malgré nos 
multiples propositions. Pour l'instant la balle est dans leur camp. Pius de 
détails dans le prochain numéro, j'èspère. 

En dehors de cela, nos projets sont actuellement, conjointement avec le 
doublement de la pagination en Juillet, la mise en place d'un catalogue de la 
coopérative, de la librairie et des photocopies, plus commode que l'actuel bon 
de commande, et un ‘numéro spécial" de présentation à distribuer gratuite- 
ment. Comme déja dit (sans grandes réactions de votre part) il est nécessaire 
de prévoir pour le ‘'nouveau'' journal un nouveau nom, qui ne rappelle pas 
trop le club et permette le regroupement éventuel de plusieurs clubs sous le 
même journal. Il est urgent que vous fassiez un effort d'immagination! Nous 
avons pensé à PILE!, FACE à la PILE, AIGUILLAGE, OCTOPUCE, BIP, 
MICROFORMAT, HoP! Pépé (c'est...), rien de tout cela n'est bien terrible. 
Envoyez vos propositions trés vite. 

Pratiquement rien sur le FORTH dans ce numéro, sinon le logo du FIG 
FORTH en couverture, mais les articles commencent à rentrer, et je prévois un 
décollage vers Juillet. 

Pas de place non plus ici pour la table des matières et les petites 
annonces. Vous trouverez celles-ci éparpillées dans les trous" du journal. 
Avez vous vue la nouvelle présentation? vous plait-elle? 
Voilà tout pour aujourd'hui. 
Jean-Daniel 





Dodin 
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BRETAGNE 


9672T35P43 Contact Bretagne PPC-T 
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Rennes, le 24 janvier 1984 








Réunion en Bretagne les 21-22 janvier 1984, à Romazy, chez 
Patrick Cahierre (T340). 











































Encore une grande vremière en Bretagne nuisque nous nous sommes 
rencontrés durant un week end entier, ce qui nous a nermis de faire 

de bons échanges d'idées, d'astuces, et de très nombreuses démons tra- 
tions de matériels. 

Etaient nrésents à cette réunion PPC , Gilbert Blanchet (7297) de 
Plérin (22), Jean-Louis Brégeault (T51) et son fils de Cérences (50), 
Patrick Cahierre (T340) de Guer (56)(merci vour la maison !), Alain 
Droneaud (T382) de Cotiéron (44), Thierry Gatineau (T419) de Redon (35), 
Georges-Noél Nicolas (T438) de Crozon (29), Guy Moineau (T395) égale- 
ment de Redon (35), Olivier Pougeon (T62P64) de Quiberon (56), Etienne 
Pounée (T183) de Paris (75), Cyril Reigner (T282) de 5t-Herblain (44), 
Didier Renévot (T388) de Plogonec (29), Robert Schwartz (T178) de 
Bondy (93), Bruno Tredez (T120) de Blain (44), Jacques Vaucelle (T106 
P21) de Romagné (35), et moi-même (T35P43) de Redon (35); soit seize 
membres PPC-T, 

Toujours beaucounr de matériels, de nombreuses boucles hn-il,ete, 
c'est la raison nour laquelle je ne citerai que les matériels 
"originaux" pour la circonstance. À noter que grace à alain, on a eu 
Sous les yeux la totalité des calculateurs Hewlett Packard "de poche", 
devuis la création de la société américaine. 

Tandis que le Hp-75 nous a donné la preuve de sa puissance et de 
sa maniabilité, la nouvelle Hp-41CX nous a montré ses fonctions sup- 
nlémentaires (cf PPC-T n°9 pl4) fort intéressantes et fort utiles. 
Esnérons que Hp nous sortira prochainement un module trans formant 
une ©V avec son timme et son x-functions en une CX. 

La vidéo de Cyril a également eu sa place samedi dans une boucle 
entre Son imprimante 132 colonnes et sa mémoire de masse. Elle nous 
a montré que, contrairement À l'idée qu'on s'en fait, elle est souvent 
fort utile même sur 41. Visualiser simultanément une vinggtaine de 
lignes de prgm, ou d'entrées de codes langage machine est loin d'être 
inintéressant. 

L'interface hp-il/rs232 était également 1à. 

Une des attractions Au wsex 2n° a sans conteste été 1a table 
traçante de Robert (Ho-7470A), une machine qui vous sort des codes 
barres, des gravhismes avec une grande nrécision et une rapidité 
surprenante (c'estcette machine qui a réalisé, entre autres, les 
cinq dernières vages de PPC-T n°9). 

Une autre des attractions de ces deux jours a été le MLDL d'Etienne 
ee vermet de rentrer au clavier des programmes en langage machine 
microcode) dans la 41. 5a démonstration, fort suivie, nous a donné 
un anerçu des possibilités de ce matériel ma foi fort séduisant. 

Par ailleurs, Etienne nous a révélé en exclusivité 1a sortie prochai- 
ne (avril) var sa société la SCIP, d'un combiné MLDL-lecteur d'éproms 
Suvercomoact, auquel on vourra brancher un programmeur (atéproité } , 

le tout venqu en éléments sénarés, d'un orix global d'environ 4500 f, 
le boitier étant d'un volume comparable à celui d'un vort extendeur, 
Se plaçant comme lui Sous la machine. L'un des éléments permettrait 

le microcofïe äan? 4es RAMS pour environ 1500 f. La même société est 
actuellement en contact avec Hewlett Packard, nour la sortie orochai- 
ne de moîules 41, comne nar exemole, un moîlule navigation, contenant 
îâes fonctions microcodées et des fonctions en langage utilisateur. 
S'est évalement ébauché un nrojet de module d'interface varallèle 
rs 232 (microcode bien sûr) permettant de brancher directement dans 
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la 41 une imorimante 132 colonnes ou autres. On en renarlera sûre- 
ment prochainement. 
Pour finir, notons la super qualités des programmes et des astuces 
au furent nrésentés. Je retiens var exemple les trucs de Georges- 
Noël, tron imnortants poue être simnlement donnés en exemnles ici. 
11 Les fera d'ailleurs très certainement vublier. 


Ces eux jours se sont nassés beaucoun tron ravidement au goût 
de tout le monde je nense, mais ont montré qu'ils constituaient 
"la bonne formule"; ils nous ont laissé le temns, le temvs de tra- 
vailler tout d'abord, mais surtout le temps de vasser un "suver" 
week end ensemble, entre amis de notre même passion comnune. 

La vrochaine réunion en Bretagne, le nrochain "week end*breton" 
est orogrammé vour Sentembre. 


Préparez vous vite ! 


À Bientôt et 
à tous 
Heureuse Programmation 


Frank, bain) 
Diners 


Mr Georges-Noël NICOLAS Crozon, Le 23 Janvier 1983 
KERRET 
29160 CROZON 
tè1(98) 27 02 72 Mr Jean-Daniel DODIN 
T 438 77 rue du Cagire 
31100 TOULOUSE. 


Cher ami, 


J'at participé ce week-end à la réunion du club magistralement organisée 
par Frank LEBASTARD à à Romazy en Bretagne. 

Nous étions une quinzaïne ; il y avait une foule de matériel. 

-Tout plein de 41 ,C , CV ,et 2 CX , un 75C puis , toute une collection 
d'autres HP 25,65,11,15,16 etc... 

-Plein de Lecteurs de cassettes,de cartes magnétiques , de codes-barres,. 
Quelques imprimantes dont une 120 colonnes interfacée par Jacques VAUCELLE 
impréssionnante!... 

-Une table traçante amenée par Robert SCHWARTZ 

-Une petite télévision et interface vidéo amenée par mot. 

-Beaucoup de documentation. 

-Un proto MLDL d'Etienne POUPEE, 


Toutes les 41 étant accélérées, remplies de modules doubles, triples,times 
quad ete ,etc..J'at du reste laissé ma machine à Jacques pour qu'il inclue 
dedans Le quad, le times puis L'Xfet avec 2 Xmemory J'ai ausst pris l'HP-IL 
development que je ferai ensuite inclure avec l'extended I/0 . Jacques 

en avait du reste un avec lui. 

Pour la CX Jacques nous a dit qu'il pourra moins la pousser et moins mettre 
de chose à L'intérieur en tout cas pas L'HP-IL : IL a déjà des commande 
pour des CX avec 2 memory à l'intérieur. 


Nous avons bien travaillé. Démonstration par Robert Schwartz de production 
de codes-barres avec Le plotter . Qu'elle belle qualité ! Et tout le monde 
d'espérerque les photopies qui en seront tirées seront de même. Bruno 
TREDEZ avee Le même matériel et le module plotter nous a fabriqué de trés 
beaux graphes . Les programmes étant trés court , la vitesse d'éxécution 
rapide . 

Etienne POUPEE nous a fait avec son MLDL de trés belles démonstrations 

de transfert de modules en transformant son MLDL en différants modules 
d'application le tout étant enregistré sur cassettes . Dans quelqus mots 
son MLDL 16K seraopérationnel il aura la taille de la 41 , trés peu épais 
fixé au moyen de double-faces il pourra rentrer dans la housse d'origine. 
Ses démonstratios on été visualisée sur ma petite télé. 
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Pierre David 
Coordinateur pour Paris 
33 Bld St Martin 

75003 Paris 


Quelques notes au sujet de la réunion qui s'est 
déroulée Samedi 14 Janvier, à Paris. 

Une vingtaine de personnes étaient présentes au 
centre de jeunesse et de loisirs Jean Verdier. 

La réunion a débuté à 14h comme prévu, après une petite 
mise en place. La salle était spacieuse (c'est normale- 
ment une salle de spectacle). 

Etaient présents, dans le détail: Jean Furgerot 
(1156), Jean François Pelanne (T191), Robert Schwartz 
(1178), Michel Locusse (T360), Dominique Talon (7311), 
Alain Herreman (T387), Blaise Montfort (T4l4), Jean 
Berthery (T327), Pierre Edrei, (T201), Jean Fevre 
(T250), Stéphane Saunier (1185), mon homonyme: Pierre 
David (1117), Didier Renevot (1388), Jean-Luc Bergas 
(T4119, Etienne Poupée (1183), Olivier Arbey (T364), et 
Frédéric Poupon, membre de PPC-PC. 

Il y avait quelques manuels (XFonctions, Time, 
HP-IL, etc), quelques livrets d'application (Maths, 
Games), des numéros de l'OI traitant de la bogue du 75, 
et surtout les "Trésors cachés de la 41",.'Synthétic 
Programming et ‘Au fond la 41' étaient eux aussi présents. 
Des numéros de PPC-T et PPC-PC circulaient dans l'assem- 
blée. Du coté du microcode, il y avait des listings PPC 
des ROM internes, du lecteur de cartes, du module 
diagnostique, et du lecteur de codes barres, ainsi que 
le listing commenté par HP des ROM 0, 1 et 2. 

Après avoir effleuré le sujet de la coexistence 
des deux chapitres de PPC (Toulouse et Paris), nous 
avons mis les tables en cercle. 

Je déirais que cette réunion soit une occasion pour se 
rencontrer, se connaître, échanger des expériences, des 
idées... Je crois que ça a réussi. Un tour de table 
permit à chacun de se présenter: profession, matériel, 
expérience et expériences, utilisation de la HP, etc. 

Dans l'ensemble, le milieu scolaire et étudiant est 
bien représenté, ce qui limite les applications profes- 
sionelles présentées. Les Jeux restent le champ d'appli- 
cations préféré. 

La programmation synthétique n'est pas très prisée: ce 

qui pose le plus de problèmes, c'est de comprendre 

"à quoi ça sert", plus que "comment ça marche". Les 
applications présentées: faire des programmes pour faire 
d'autres programmes, synthétique comme aide à l'améliora- 
tion de pfogrammes (GTO compilés, registres supplémentaires) 
ne sont pas très convaincantes. Mais il y en a d'autres. 
C'est là un point fondamental de l'apprentissage de la 
programmation synthétique: la motivation. 

Du coté du Microcode, encore moins de membres en 
font. Le matériel nécessaire et son prix sont souvent 
un obstacle difficile à contourner, Il y a quand même un 
MLDL, réalisé par Etienne Poupée, dont la conception a 
l'air bien étudiée, et un PROTOCODER aimablement prété 
par le président du Chapitre de Paris, Philippe Guez. 
Beaucoup de gens étant novices en la matière, nous avons 
présenté un peu le microcode: a quoi cela sert-il, quel 
matériel utiliser, comment en faire, quels ouvrages 
choisir, et l'utilité réelle, des exemples. Sans rentrer 
dans des détails trop techniques pour une première appro- 
che, cela a permis ’, de prendre conscience qu'il existait 
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autre chose que la "programmation normale". 

Au chapitre des expériences, parlons du "cross-assembleur" 
d'un des menbres: il a réalisé sur un "gros" ordinateur 
un assembleur 41, qui lui permettait de programmer des 
Eproms directement en Micrécode, et ceci en Pascal. Une 
fois les Eprom brûlées, il les mettait dans un lecteur 
d'Eprom. Procédé économique, à condition que l'on dispose 
gratuitement d'un mini-ordinateur. 

La suite de la réunion s'est passé en petits groupes 
qai se sont formés spontanément, et sur des sujets très 
divers. Jean-Danièl nous a appelé de Toulouse pour nous 
rappeler qu'à la réunion qui se déroulait en même temps à 
Toulouse, ils pensaient à nous. 

Puis, tout le monde s'est séparé, vers 18, 19h, en 
se promettant de recommencer ça... Fhilippe Romascano 


Pourquoi pas en Juin ? Ecrivez-moi pour Grand-Vennes 39 
proposer des dates, ou des sujets à traiter, ou des idées, 
ou tout ce qui pourrait intéresser une nouvelle réunion. 1010 LAUSANNE 


A Bientôt 
Pierre David LAUSANNE, LE 27.12.83, 


Cher Jean-Daniel, 
J'espère que vous ne m'en voudrez pas de vous écrire seulement maintenant, 
mais nous avons été obligé d'attendre notre Assemblée Générale pour discuter 
de votre proposition. Je ne vous cacherai pas qu'elle a soulevé de vives 


discussions au sein de notre Club. 


Voici donc le résultat de ces discussions # 
1) Crainte que petit à petit FFC-L ne se fasse "absorber" par FFC-T. 
2) PPC-L ne cherche pas à s’agrandir à tout prix et préfère rester 
un petit Club. 
Cela ne signifie pas que FFC-L ne veut avoir aucun contact avec 
PPFC-T. Nous pensons qu'il est préférable que chacun édite son 
propre journal pour la simple raison qu'un Club de 50 membres ne 
peut offrir autant d'articles qu'un Club qui en compte passé 700. 


Nous avons donc nommé un Comité de rédaction qui a la charge de 
faire paraître un minimum de 4 journaux dans l'année. 
En résumé, il est resorti de notre Assemblée Générale que la majorité des 
membres du FFC-L préfère un échange d'informations et d'articles entre nos 


deux Clubs, plutét que la parution d'un journal commun. 


Il ne me reste plus quà vous souhaiter de passer de très bonnes fétes de 
fin d'année. Il va de soit que je renouvelle ma cotisation pour 1984. 
Avec mes meilleures salutations, 


Fhilippe Romascano 
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DIALOGUE 


Daniel MEYER, 

‘venue Jardin Ecole, 13, 
4820 DISON, 

3ELGIQUE. 


Dison, le 27 janvier 1984, 


Cher Jean-Daniel, 


Pardonne-moi d'avoir tant 
tardé à t'écrire. 
Je veux simplement te signaler que je ne renouvelle pas mon adhé- 
sion à PPC-T. Celà pour plusieurs raisons que je vais essayer de ré- 
sumer dans cette lettre. 


Tout d'abord, je suis contre le regroupement des clubs MHP"I Je 
pense que chaque club doit garder son indépendance, indépendance qui 
est à la base même de son originalité. De plus, le nombre de clubs 

‘a pas enrore atteint le seuil critique (que je ne saurais d'aill- 
eurs pas définir). I1 me semble que 2 chapitres français et 1 chapi- 
tre suisse sont un minimum. C'est pourtant toi qui te plains tou- 
jours du travail trop important et d'une quantité d'articles sans 
cesse croissante! Je ne crois pas que le fait d'avoir été les pre- 
riers à créer une section francophone nous permet de contraindre les 
autres clubs À se ranger sous notre "aile". Qu'aurais-tu dit si un 
autre chapitre t'avais proposé l'offre que tu leur a faite? Celà 
aurait été dommage, ton cachet "Le Président" n'aurait plus servi à 
rien ce 


Deuxième raison, l'entrée du FORTH, Tu étais pourtant convaincu, 
APRÈS un court ane d'essai, que le Forth (celui du Jupiter Ace, 

zut au moins) n'était pas destiné aux applications scientifiques, 
ciors que les HP y sont tout à fait destinées. 
Ensuite, si l'on accepte le Forth parce qu'il utilise, lui aussi, une 
sile; on acceptera bientôt toutes les autres machines pour une mul- 
titude de motifs. Cè me fait penser à l'OP qui accepte des articles 
-our le ZX81, soi-disant parce qu'il est portable! Mais la TV et la 
rrise de courant, les trouvent-on dans le bus, dans le train, dans 
une voiture? On peut alors admettre que l'Osborne est un portable! 


Foisième raison, l'emploi de plus en plus fréquent d'accessoires 
couteûx,. Personnellement, je dispose de quelques extensions (non 
HF-IL) et elles sont largement suffisantes pour mes applications, 

Je relisais dernièrement un de tes premiers articles et une phrase 
revient à l'esprit : "Que peut faire le possesseur d'un lecteur 
cartes contre celui d'un lecteur de cassettes?" 

politique des prix menée par HP et l'envolée du dollar ne me per- 
me ettent pas de faire des folies. 


ou 


o Oo 


us 
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Quatrième raison: J'ai commandé il y a quelques semaines des car- 
tes magnétiques avec classeur. J'ai bien reçu les cartes mais tou- 
‘ours pas de classeur à l'horizon. J'ai alors adressé une lettre à 
Jean-Yves qui m'a répondu qu'il n'y avait plus de classeur! 

e dois même ajouter qu'avant d'éffectuer ma commande, j'ai attendu 
le n°7 de PPC-T afin d'être bien certain de ce que je commandais! 
Je lis en page 32 de ce même numéro: "C7:cartes magnétiques HP avec 
rlasseur, le 80 250F", Ceci compensant celà, j'ai reçu 7 cartes ma- 
rnétiques supplémentaires, mais dont le prix est nettement inféri- 
eur à celui du classeur! 

Si le club n'est pas capable de tenir ses engagements, j'en suis 
réduit à me passer de ses services, 


Cinquième raison, le boycott de certains accessoires (je pense 
tout particulièrement au lecteur de codes-barres ...). Je suis pra- 
tiquement certain que cet accessoire est plus répandu que l'Eprom 
8ox ou que le MLDL. Je ne pense pas exagérer, j'en tiens pour ex- 
emple que voici 1 an (ni plus ni moins) que je te demande de faire 
un devis pour les photocopies du lecteur optique... 


Le club et le journal doivmtêtre conçus par et pour tous! 


Je ne voudrais pas avoir l'air d'un journaliste qui épluche les 
‘éclarations d'un homme politique afin d'y trouver des contradic- 
tions, aussi, je vais en rester là. Je suis certain que tu compren- 
dras mes raisons. Tout avis concernant cette lettre sera le bienve- 
nu; et si l'optique du club changeait, n'hésite pas à me le faire 
savoir. 


Ma modeste contribution à PPC-T aura été profitable, j'aime à le 
-.roire du moins, à chacun de nous deux ainsi qu'aux autres membres. 
L'expérience valait la peine d'être tentée. 


Amicalement, 


Daniel MEYER. 


Cher Daniel, 


Je pense qu'il est tout à fait utile de recevoir des lettres de 
critique, car elles permettent d'avancer. La tienne est par endroits assez 
méchante, mais peu importe. 


Le mieux est d'y répondre point par point. Contrairement à ce que 
tu écris, je n'ai jamais proposé le regroupement des clubs. Je suis tout à 
fait favorable à la création de sections autonômes, et si elles veulent 
prendre leur indépendance pratique et juridique, c'est leur affaire, pas la 
mienne. 


Ce qu'il me parait nécessaire de regrouper ce sont les achats et 
les journaux. Pour la même raison : que l'on soit d'accord ou pas, la plus 
part des fournisseurs font des tarifs à la quantité, ce n'est pas moi qui 
ai inventé les centrales d'achat. Pour les journaux, l'équation est assez 
simple, le journal actuel de PPC-T, coûte mis sur presse, avant qu'aucun 
exemlaire soit tiré environ 3500 F. Ensuite les 500 exemplaires coutent 
1000F. Si tous les clubs français se regroupaient pour faire le journal, il 
serait possible d'augmenter le nombre de pages ou d'améliorer la 
présentation pour le même prix. N'insistons pas, cette proposition, où je 
proposais des pages entièrement à la disposition des autres chapitres, a 
été refusée. Je n'ai aucunement l'intention de contraindre qui que ce soit 
à “se ranger sous notre aile". Par contre les adhérents des autres 
chapitres, qui n'ont pas toujours reçu les journaux qu'ils avaient payés 
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auraient peut-être gagné au change. Encore une fois la question n'est plus 
d'actualité. 


Remarquons quand même que si le projet ci-dessus avait vu le jour 
nous aurions éte au moins trois "présidents" à signer dans le journal. 


Deuxième raison. Je suis un fervent partisant de la notation 
polonaise inverse de nos HP. Mais je suis aussi lucide. Si nous regardons 
autour de nous, force est de constater que le BASIC envahi tout. Le club 
américain a résolu le problème en créant un nouveau journal ("Computer 
Journal of PPC") consacré aux micros HP parlant Basic. Je dois avouer que, 
bien que manipulant le BASIC à longueur de journées, je n'aime pas ce lan- 
gage. Ur il faut bien reconnaitre que la HP-41C est presque certainement la 
dernière représentante de la catégorie des calculatrices à notation 
polonaise et de haut niveau. Je ne suis même pas sur que dans trois ou 4 
ans il restera encore de telles machines. J'ai même écrit un livre (ENTER) 
pour soutenir ce type de machines. Mais quand on voit la puissance du 
HP-71, et son mode CALCulatrice, en notation arithmétique, on se dit que 
mênie HP est en train de prendre le virage. 


Ur le FOURTH est peut-être en mesure de renverser le cours des 
choses, au moins dans une certaine mesure. D'une part il a exactement la 
même logique de fonctionnement que nos HP. Ensuite il est facile de tradui- 
re des programmes HP-41 en FORTH (au moins pour les parties pas trop scien- 
tifiques), alors que c'est difficile en BASIC. Enfin ce langage permet de 


fouiller dans les coins et le travail fait sur le microcode et la pro- 
grammation synthétique montre que cet aspect est essentiel pour les gens du 
club. Le FORTH a sû, de plus, créer autour de lui un groupe analogue à PPC, 
ce qui est encourageant. 


Je ne pense pas que Île FURTH ai envahi le journal ! I] me semble 
même qu'il est trop discret. Une des principales raisons est que la presse 
n'a à peu prés pas fait écho à notre annonce. Dernier argument sur le FORTH 
dans ce propos un peu décousu, il est particuliëérement adapté aux petites 
machines, donc aux machines de poche, même si il n'est encore disponible 
que sur des HP. Le HP-75, le HP-71 ont FORTH, et ce sont bien des appareils 
de poche. 


Troisieme raison. Je ne pense pas que nous ayons publie beaucoup 
de programmes nécessitant des matériels coûteux. Par contre nous avons 
publie, et nous continueront à publier, des descriptions le plus détaillées 
possibles de tous les accessoires disponibles, justement pour que ceux qui 
se posent la question de savoir si l'achat est justifié puisse le faire en 
toute connaissance de cause. Le seul accessoire dont je recommande l'achat 
sans restriction est le lecteur de cartes. 


Quand un produit n'est plus disponible, nous ne pouvons pas en 
envoyer ! J'en ai re-commandé, de ces classeurs, mais je ne suis même pas 
sur qu'il y en ai encore. Je ne pense pas que le prix de 7 cartes rragnéti- 
ques soit inferieur a celui du classeur. Fallait-il retourner le chèque 
sans les cartes ? As tu fait le compte de ce que le club t'a fait economi- 
ser en cartes magnétiques ? 


Cinquième raison. Un peu contradictoire avec la précedente. Si de 
nonbreux aatierents ont un lecteur de codes barre, je ne sais pas trop ce 
qu'ils en font, a part les (rares) manuels HP, les seuls codes barre que 
j'éi vus l'ont ecés dans un journal du club. En fait la fabrication de ces 
codes esi tres laborieuse. L'irmprimante 82162 demande une minute par ligne, 
qu'il faut ensuite assembler, et une page de codes barre ne contient guère 
qu'une trentaine u'instructions. be plus l'impression des codes est trés 
capricieuse : au ioins Un prograime Sur 2 ou 3 publies dans le journal US 
est illisible. L'essai fait dans une circulaire l'an passé avait etè trés 
nitige. L'avênement du nouveau format (et la qualité du travail de notre 
nouvel primeur) à resolu ce problème. Reste le problème de place, qui 
sera resolu en juillet, grace au coublenent de la pagination. 


Robert Schwarts ei son traceur de courbes font le reste. Les 
choses ne sont faciles que de loin ! Je n'ai pas la moindre idées de ce que 
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peuvent être "les photocopies du lecteur optique" ? Je n'ai rien qui 
ressemble à Ça dans mes archives. 


Ceci dit, chacun reste libre des ses opinions. Portez vous bien. 


Amicalement 
Jean-Daniel Dodin 


Daniel MEYER, 

Avenue Jardin Ecole, 15, 
4820 Dison, 

BÉLGIQUE. 

PPC-T 50. 


Dison, le 8 février 1684, 


Cher Jean-Daniel, 


J'ai reçu ta lettre ce matin. 
Je voudrais que tu saches que si tu as trouvé ma lettre méchante, 
ce n'était pas son but. Je pense simplement que mon point de vue 
peut t'intérresser puisque j'ai un certain "recul" par rapport à 
toi qui pense "club", qui mange "club" et qui dort "club", 

J'ai relu ta lettre deux fois, elle m'a beaucoup éclairé sur 
certains points restés obscurs, voire même inexpliqués. Je pense 
tout particulièrement à l'organisation future du (ou des) club(s). 

Quant au BASIC, au FORTH et aux autres langages, je pense que le 
club peut se passer d'eux. Comme tu le dis dans ta lettre, la 41 
est la dernière représentante des calculatrices RPN de haut niveau, 
et les possesseurs de 41 sont assez nombreux, à mon avis, pour que 
nous ne soyons pas obligés d'insérer du BASIC ou autre dans les 
colonnes du journal pour "survivre". Je crois que si l'on se conten- 
te des séries 10, 40, 70 et des quelques machines encore en vente 
(34, 67, 97, ...), on aura déjà du pain sur la planche. J'en veux 
pour preuve qu'il est assez facile d'adapter un programme de 34 
sur 41, mais que c'est moins évident du BASIC vers la 41 (souviens- 
toi de l'interpollation par la méthode d'AITKEN). 

Phu- le lecteur de codes-barres, je pense en parler aux membres 
intérressés, 1120 par exemple. C'est encore le meilleur moyen, et 
celà permettra aux membres de se connaître un peu mieux tout en 
gagnant beaucoup de temps. Des petits groupes d'intérêts commun 
dans le club me semble une solution valable. 

Et si tu reçois ma lettre dans une enveloppe grand format, c'est 
que ta lettre m'a expliqué bien des choses et m'a aussi fait changer 
d'avis. En même temps que cette lettre, partent une lettre et un 
mandat adressés à J-F Sibille pour renouveller mon adhésion. 

A propos d'adhésion, je crois que “Jeis également m'inscrire à PPC-L, 
j'ai reçu le PPC-RCF jeudi dernier; j'ai réalisé une economie de 
25 ©, je leur dois bien ça! 


Amicalement, 
1 DL 
Daniel MEYER. 
P.S. J'ai déjà fait un effort: j'ai changé le ruban de ma machite 


à écrire. 
Après tout, il n'y a que les sots qui ne changent Las d'avis !I! 
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Paris le 12 nov 83 
J.Dutertre 


u ENPAGE 


Monsieur, 


Je vous ai proposé il y a quelques jours un programme de présentation 
de texte utilisable avec toute imprimante, mais sans lettres accentuées 
et par conséquent surtout adapté à l'imprimante thermique pour laquelle 
il est suffisant. Vous me demandez de vous renvoyer mon programme en 
original papier et sur cassette. D'accord et voilà qui est fait. Mais du 
coup je pense à un développement supplémentaire. Si "ENPAGE75" convient 
à peu près à l'imprimante thermique, il vaut mieux le reprendre sous une 
forme plus élaborée à l'intention d'une machine à écrire plus complète. 
Il n'est pas toujours évident d'interfacer les périphériques "non-HP" et 
cette expérience peut servir à d'autres. Voici un exemple d'adaptation à 
la machine à écrire Olympia ESW-103. 

11 faut: 

1/ Redéfinir le clavier. Je vous envoie une photocopie du mien. Il y a 
là une question de choix à faire. J'ai essayé de rester le plus près 
possible du clavier Xerox ou Zenith. Mais il manque des touches. Lorsque 
deux signes figurent symétriquement au dessus d'une touche, celui de 
gauche est obtenu avec la touche normale, celui de droite avec la touche 
shiftée. Un symbole perché en haut à droite s'obtient avec CTL: dièze, 
crochet ouvert et fermé, tréma sont dans ce cas. Dans ces conditions, le 
clavier est "presque" Xerox, sauf que la rangée supérieure laisse les 
chiffres en position normale et que les signes et accents sont shiftés. 
Une option à discuter. 

Matériellement le clavier est muni d'un cache de recouvrement en 
plastique de HP. Les lettres sont des "Letraset" numéro 728. Le tout 
est verni au vernis pour gouache surfin de Lefranc et Bourgeois numéro 
874. Deux couches, la première très rapide et légère sinon les lettres 
s'en vont. 

2/ On trouvera ci-joint le fichier "keys" correspondant. Je l'appelle 
"AZERTAC" (azerty accentué) pour le conserver en mémoire de masse. 

3/ Le fichier  "OLY" décrit les paramètres d'initialisation de 
l'interface HP-IL/RS-232C. Ces commandes sont reprises dans le programme 
de mise en page "ENPAGOLY" dérivé du "enpage75". 

4/ "OLYDOC" représente la description du cable de liaison qu'il faut 
préparer. Pas difficile... quand on le sait. La même réflexion vaut 
d'ailleurs pour les paramètres de "oly"! 

5/ Enfin le programme "ENPAGOLY" lui-même, un "enpage75" perfectionné 
pour l'Olympia ESW-103. J'utilise cette machine sur un autre système et 
il me fallait absolument la réutiliser aussi avec la boucle HP-IL. Si 
certains ont ce problème, il entre donc dans la catégorie des "exercices 
résolus". 


Finalement, l'absence totale de consignes pour "enpage75" où "enpagoly" 
les rend plus agréables à utiliser que "FORMAT/5" du module texte HP qui 
oblige à hérisser le manuscrit de messages invraisemblables. Le rôle de 
l'informatique est de simplifier la vie. 


Enfin, devrait... (quand ce n'est pas un "mot croisé à la puissance 
pi". Ca arrive aussi mais là, on le fait exprès). Bien entendu, 
Format75 permet, quand on en à besoin, quantités  d'acrobaties, 
insertions de noms pour “courrier personnalisé” etc. etc. dont mon 
Enpage n'est pas capable (parce qu'il doit rester petit en mémoire). 

Il me reste un projet: établir à partir d'enpage75 un utilitaire 
destiné à lister les programmes sur Olympia, ce qui nécessite quelques 
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transpositions de caractères pour reconstituer les dièzes, remplacer les 
“plus petit" et "plus grand" par des parenthèses barrées et non par 1/2 
et 1/4 comme c'est le cas actuellement, barrer les zéros, fabriquer un 
"a roulé", etc... ce sera pour la prochaine fois. 

(Insertion: c'est chose faite, sous le nom d'Enpagoly. On ne peut 
imprimer du Basic qu'après transformation en texte... mais les numéros 
de lignes disparaissent. Gênant! On s'en tire toujours: il suffit de 
lister après un renumber et de reconstituer les numéros des lignes. 
C'est pour cela que ceux-ci n'ont pas de zéros barrés comme dans le 
texte. N'empêche, le résultat est "propre".) 

Pendant que j'y pense: sait-on comment passer en mode graphique sur la 
162A? La séquence d'échappement du manuel ne donne pas grand chose, 
l'excellent "autour de la boucle" la reproduit sans la commenter, et 
sans exemple... je dis cela pour ajouter des accents sur cette petite 
thermique sympa. 

Cela fait beaucoup de choses en 75, pour cette fois, alors que j'ai des 
masses de programmes en 41. C'est ça, qui sera pour plus tard! 

J'ai reçu les numéros disponibles de PPC-T. Quel travail! Tout celà est 
superbe, je suis très impressionné. Félicitations. 

P.S: Formidable; le programme de Michel Martinet pour lire les 
cassettes. Je l'ai un peu modifié pour que l'affichage se fasse sur la 
visu avec l'interface video. On passe les octets 64 par 64, soit un 
enregistrement en 4 écrans. 

Les flèches haute et basse passent les enregistrements, droite et 
gauche les écrans. Fet va chercher un enregistrement, Edit permet de 
modifier un octet, Appt de relire le même écran, au besoin, après 
modification d'un ou plusieurs octets. Vous verrez que basic est codé EO0 
88, text E0O 52, worksheet E0 8A et lexfile E0 89. Le programme peut 
être adapté aisément à une imprimante en remplaçant DISP par PRINT dans 
les lignes 360 à 390. 


Heureuse Programmation, Jean Dutertre. QU 


| ENPAGOLY 
!  J.Dutertre 
| 6.nov.83 
l 
RESTORE 10 € PRINTER IS ":rs" 
SENDIO ":rs","REN,LADL" ,"Cÿ; LI3; LI5 ; P4 ; SB8 ; SL1 ; SL3; SL5 ; SPY 
3 SSD ; SHG"'ECHR$( 19) &CHR$( 13) 
SEND 10 un : NRE nu : uu 
DIM A$[192],B$[961,B1$196],B2$[96],T$[96] 
INTEGER H,1,J,K,L,M,N,0,P,0,R,S 
T$="" € K=ÿ € M=ÿ € 0=1 € P=1 € R=ÿ € S=ÿ 
H=55 ! nombre de lignes par page 
L=72 ! nombre de colonnes par ligne 
INPUT "fichier a imprimer? ";F$ 
ASSIGN L 1 TO F$ 
ON ERROR GOTO 2ÿÿ 
FOR 1=1 TO 19 
READ L 1 ; A$ 
IF A$[1,1J4" " THEN S=1 € GOTO 299 
NEXT I 
RESTORE 2 1 
ON ERROR GOTO 48ÿ 
PRINT CHR$(27)&CHR$(23) 
READ £ 1 ; A$ € IF S=1 THEN 25ÿ 
240 IF LEN(A$)}1 THEN A$=A$[2,LEN(A$)] 
250 IF A$[1,11]4" " THEN R=ÿ € GOTO 27ÿ 
260 IF A$[1,1]=" " AND T$u"" THEN PRINT T$  T$="" © M-M+1 © R=R+1 € 
GOSUB 649 € GOTO 28ÿ 
270 IF T$U"" THEN A$=-T$&" "&A$ 
280 J=L € IF J}=LEN(A$) THEN T$=A$ € A$="" € GOTO 23ÿ 
290 IF A$T[J+1,J+1]L" " THEN J-J-1 ELSE 319 
300 IF J}9 THEN 299 ELSE B$=A$[1,L-1]8&"-" © A$=A$[L,LEN(A$)] E GOTO 


329 
310 B$=A$[1,)] € A$=A$CJ+2,LEN(A$)] 
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18 ! ENPAGE?5 

28 ! J.Butertre 

38 ! 28.12.82 

48 ! 

58 DIX 
A#$11921,B$1961.B1#196),E 
2#196]),1$196] 

68 INTEGER 

H; 1, JK,L:MNCP,GR,S 
78 T$="" Q K-G R N-E @ 
0=1 8 P=1 & R=B & 5-6 
88 H=68 ! nonbre de 
lignes par page 

99 L=24 ! nonbre de 
colonnes par ligne 

188 INPUT “fichier à 
ineriner? ";F$ 

118 ASSIGN # i TO F# 
128 ON ERROR GOTO 178 
138 FOR I=1 TO 18 

148 READ # 1 ; Rif 

158 IF A$[1,114" * THEH 
S=1 @ GOTO 178 

168 HEXT I! 

178 RESTORE # i 

188 ON ERROR GOTO 488 
198 READ # 1 ; A @ IF 
S=1 THEN 218 

288 IF LENCA$)}{ THEN 
A$=A$I2,LENCA#S)] 

218 IF A$IL,1J8" * THEN 
R=8 &@ GOTO 238 

224 IF A$[1,1]=" * AND 
T$#"" THEN PRINT T$ @ 
T$="" @ H=H+i @ R=R+I & 
GOSUB 578 @ GOTO 244 
238 IF T$#”"" THEN 
A$=T$é" “2h04 

248 J=L & IF J}=LEN(A#) 
THEN T$=A$ @ A$="" & 
GOTO 194 

258 IF A$CJ+1,J+118" * 
THEN J=J-1 ELSE 278 

268 IF J>@ THEN 254 ELSE 
B$=A$I1,1-114"-" & 
A$=A$IL,LENCA#$)] & GOTO 
288 

278 B$=A$[1,4J1 9 
A$=A$L.J+2, LENCA#)] 

288 J=INT(L/2)+1 

298 IF LEN(B#$);.; THEN 
348 

384 IF LEN(B$)=. THEK 
328 

318 IF POS(EB$," “i=8 
THEN B$=B$t" 

324 IF LEN(B$)< THEN 
GOSUB 434 @ GOTO 32€ 
338 GCOSUB 534 & GOTC 378 
348 JL 

358 IF POS{E$," “)= 
THEN B$=B$$" * 
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368 IF LEN(B$)<.J THEN 
GOSUB 438 @ GOTO 368 
378 O-0+(-1) @ PRINT B$ 
€ NH=H+#i 

388 IF M>=H THEN GOSUE 
588 

398 GOTO 248 

498 ASSIGH # 1 TO + @ 
PRINT T$ 

418 FOR I=1 TO 6 @ PRINT 
@ HNEXT I 

428 GOTO 688 

438 N=3 @ O=LEN(E$) 

448 IF O8 THEN 
N=LEN(B$) @ 0-7 

458 FOR I=N TO © STEP 0 
468 IF B$[I,1J8" “ THEN 
K=8 @ GOTO 518 

478 IF K=1 THEN 518 

48 B1$-B$[1,1] & 
B2$=B$[1+1,LEN(B#$)] 

498 B$=B1$t" “L2$ & K=1 
@ I=I+#1 

508 IF LENCB$)=J THEN 
528 

514 NEXT ! 

528 RETURN 

538 FOR 1=1 TO L-2 STEP 
è 

548 B$=B${1,114" 
“tB$[1+1,LEN(B#)] 

594 NEXT I 

568 RETURN 

578 IF MH-S OR R>i THEN 
598 

584 PRINT CHR#(12) @ 
PRINT @ H=3 @ P-P+1 & 
PRINT P @ PRINT 

598 RETURN 

688 DISP “teraine!” 

618 END ! 14-92-83 


Le petit programme “er 
page?" est un logiciel 
utilitaire de presentati 
on 
de texte reduit au ainis 
un et cependant efficace 


Il decoure, concatene et 
justifie à droite 
les lignes de texte ecri 
tes avec l'editeur de te 
xte 

Le petit progranme 
“enpage?3" est un 
logiciel utilitaire de 
presentation 
de texte reduit au 
niniaun et cependant 
efficace, 
Il decoure, concatene et 
justifie à droite 
les lignes de texte 
ecrites avec l'editeur 
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“ENPAGE?5" 


Le petit  progranse 
“enpage?5" est ur 
logiciel utilitaire de 
presentation de texte 
reduit au niniaus et 
cependant efficace, Il 
decoupe, concatene et 
justifie a droite les 
lignes de texte ecrites 
avec l'editeur de texte 
incorpore de la HP-75, 

Les regles d'emploi 
sont sinples à retenir: 
il n'y en a pas. Toutes 
les lignes ecrites sont 
nises bout à bout. sauf 
celles qui conaencent 
par un blanc: elles sont 
traitees conne des 
debuts de paragraphes, 
Bien entendu !e blanc 
introduit a chaque ligne 
par la procedure auto ne 
conpte pas (et ci on 
choisit d'ecrire des Je 
debut des lignes? je 
progranse se debrouille 
bien tout de rene! Pas 
de danser!) On utilisera 
donc “auto 
systenat iquenent pour 
ecrire du texte. 

Sans que des consignes 
soient necessaires, Île 
progranne fait en sorte 
au'un titre me 5e trouve 
pas tout seul en bas de 
page. C'est pratique. 

Vous verrez vite 
coanent utiliser cette 
petite routine. La 
longueur des lignes est 
a definir dans JE 
variable L (ligne 98). 
C'est 24 pour une 
inprisante theraique. La 
hauteur des pages est 
affectee à la variable H 
(ligne 88). 

Sur cette page le 
present texte figure 
trois fois: tel auel 
betenent, puis en node 
cesure sur Je dernier 
blanc. enfin presente 
par “enpage73”, 
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J=INT(L/2)+1 

IF LEN(B$)}J THEN 38ÿ 

IF LEN(B$)=J THEN 369 

IF POS(B$," ")=9 THEN B$-B$&" " 

IF LEN(B$)CJ THEN GOSUB 599 € GOTO 36ÿ 

GOSUB 699 € GOTO 45ÿ 

J=L 

IF POS(B$," ")=9 THEN B$-B$8&" " 

GOTO 439 

UE ENRe € IF KUÿ THEN I=I+K © J=J+1 € GOTO 
41 

RETURN 

R$=""" € 1=9 € GOSUB 419 € R$=""" € 1-9 € GOSUB 419 
IF LEN(B$)(J THEN GOSUB 599 € GOTO 44ÿ 

0=0*(-1) € PRINT B$ © M=M+1 

IF M}=H THEN GOSUB 65ÿ 

GOTO 28ÿ 

ASSIGN ! 1 TO * € PRINT T$ 


GOTO 799 

N=3 € Q=LEN(B$) 

IF O(9 THEN N=LEN(B$) € Q=3 

FOR I=N TO Q STEP O0 

IF B$[1,1]4" " THEN K=ÿ € GOTO 58ÿ 
IF K=1 THEN 589 

B1$=B$[1,1] © B2$=B$[I+1,LEN(B$)] 
B$=B1$8&" "&B2$ © K=1 © I=I+1 

IF LEN(B$)=J THEN 59ÿ 

NEXT I 

RETURN 

FOR 1=1 TO L-2 STEP 2 

B$=B$[1,1J8&" "&B$[I+1,LEN(B$)] 
NEXT I 

RETURN 

IF MCH-5 OR R}1 THEN 699 

DISP "fin page";P;",papier,'P',RTN"; © INPUT "? ":R$ 
IF R$£"p" AND R$L"P" THEN 659 
PRINT CHR$(27)&CHR$(23) ;CHR$(19)&CHR$(13) € M=3 € P=P+1 
PRINT TAB(L/2);P © PRINT 

RETURN 

DISP "termine!" 

END ! 14-92-83 et 16-11-83 


| LISTOLY 

|! J.Dutertre 

| 13.nov.83 

! 

RESTORE 10 € PRINTER IS ":rs" € PWIDTH 12ÿ 
SENDIO ":rs","REN,LADL" ,"Cÿ; LI3; LI5;P4 ; SB8; SL1 ; SL3; SL5 ; SPÿ 
; SSQ ; SHG"&CHR$( 19) &CHR$( 13) 

SENDIO un ,"NRE" à un 

DIM B$C259],T$[5] 

INTEGER H,1,J,K,L,M,N,0,P 

T1$="TEMPO" € K=ÿ € M=ÿ € N=9 € 0=ÿ9 E P=ÿ 
H=55 ! nombre de lignes par page 

L=72 ! nombre de colonnes par ligne 

INPUT "fichier a lister? ";F$ 

ON ERROR GOTO 56ÿ 

COPY F$ TO T1$ 

EDIT T1$ 

RENUMBER 

TRANSFORM T1$ INTO TEXT 

DISP "on liste ";F$ 

ASSIGN ! 1 TO T1$ 

ON ERROR GOTO 48ÿ 

GOSUB 52ÿ 

N=N+1 € 0=ÿ 

READ L 1 ; B$ 

GOTO 29ÿ 

K=POS(B$CI+1,LEN(B$)],R$) © IF K=9 THEN 28ÿ 
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PRET EIRENREEZTETRM LER(EST] € I=I+K € 0=0+1 € GOTO 


280 RETURN 

290 R$=""" € 1-9 € GOSUB 269 € R$=""" € I=ÿ © GOSUB 264 
300 GOTO 34ÿ 

310 K=POS(B$,R$) € IF K=9 THEN 339 

320 B$=B$C 1 ,K-1]8T$&B$CK+1,LEN(B$)] © 0=0+2 € GOTO 319 

330 RETURN 

340 R$=CHR$(35) € T$=CHR$(34)&CHR$(8)&CHR$(61) E GOSUB 319 
350 R$=CHR$(69) € T$=CHR$(49)&CHR$S(B)&CHR$(45) € GOSUB 319 
360 R$=CHR$(62) € T$=CHR$(41)&CHR$(8)&CHR$(45) E GOSUB 319 
370 R$=CHR$(92) € T$=CHR$(96) € GOSUB 319 

380 R$=CHR$(48) € T$=CHR$(79)&CHR$(8)&CHR$(47) E GOSUB 319 
390 A AUEE € T$=CHR$(27)8&CHR$(18)&CHR$(8)&CHR$(67) € GOSUB 


400 J=7-0 









M=M+1 € GOTO 46ÿ 

420 IF POS(B$," ")-9 THEN 45ÿ 

430 IF B$[L-J,L-J]{" " THEN J=J+1 € GOTO 439 

440 IF J}(L+0)/2 THEN J=7 

450 PRINT USING 559 ; N*19; € PRINT TAB(6):B$[1,L-J] E PRINT 
TAB(7) ;B$[L-J+1,LEN(B$)] © M-M+2 

460 IF M}=H THEN GOSUB 599 

470 GOTO 239 

480 ASSIGN 1 TO * € PURGE T1$ 

490 GOTO 579 

500 DISP "fin page";P;",papier,'P',RTN"; © INPUT "? "3;R$ 

510 IF R$£"p" AND R$L"P" THEN 599 

520 PRINT CHR$(27)&CHR$(23) ;CHR$( 19) &CHR$( 13) € M=3 € P=P+1 

530 PRINT F$;TAB(L/2-4) ;"page";P;TAB(L-8) ;DATE$ 

540 PRINT © RETURN 

550 IMAGE ddddd 

560 PURGE "TEMPO" E GOTO 159 

570 DISP "termine!" 

580 END ! 14-92-83 et 16-11-83 


OLYMPIA ESH 187 
14 Bevisser le boitier 
de l'interface RS232, 
retourner le connecteur 
DCE-DTE pour placer 








































34 Preparer un cable 
fenelle-fenelle pour 
relier l'interface 
(nale) et le cable de 
l'Olyapia (nale). 












l'encoche du cote “DCE”, 

2/ Preparer le cordon 
de la nachine Olympia 
ESN 143 de la facon 
suivante: 

cote interface. 

--1--brun 

--2--rouge 

--3--0ranse 

--4-- jaune 

--5--vert 

--6--bieu 

--7--violet 

--8--noir 

-28--blanc 

cote inprinante 
--{--brun 

--2--rou3e 

--3--0ranse 

--4--jaune 

==$ 

--6--bleu 

--7--violet 

--8 

-28--blanc 

et nettre en 
court-circuit les deux 
fils vert et noir. 
detaches du la fiche, 
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47 Installer la boucle 
HPIL, assigner les 
peripheriques en nonnant 
“rs” l'interface RS 232 
et l'Olyapia, puis faire 


RUN “oly” pour 
initialiser les 
parametres aux valeurs 
requises par 


l'iaprinante, Par  ]a 
suite c'est l'Olyapia 
aui repond aux commandes 
PRINT ou PLIST. 
J.Butertre le ? nov 83 


18!  OLY 

28 !  J.Butertre 
34 !  6.nov.83 

4 ! 

54 PRIKTER IS “:rs" 
68 SENDIO 


"rs", "REN,LAD#", "CR; LI3 
1LI5:P4;688; SLI; SL3; SLS: 
SPA; SSA;SHG"LCHRSC1B)ECH 
R$(13) 

78 SENDIO “","NRE","" 

88 EHD 
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410 IF LEN(B$)(=L-J THEN PRINT USING 559 ; N*19; © PRINT TAB(6);B$ € 








AZERTAC 
28;] 
31:# 
33;t 
34;{ 
35;" 
36; 
37; 
38;$ 
35;} 
4g;! 
aix 
43; 
44; ; 
46;: 
47;= 
58:h 
LH 
68;. 
61;! 
62; 
63;+ 
64;} 
65;6 
#7? 
81;8 
87:2 
38;k 
91;4 
93; 
97;a 
185; 
113;3 
119;z 
122;y 
184;% 
127;€ 
173irun “enpage75" 
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Il est parfois lassant 
d'attendre que Er 
cassette se balance de 
droite et de gauche pour 
enregistrer plusieurs 
fichiers successivement ; 
ou pour les nettoyer. 

COPCAS et HETTCAS + 
pourvaient: on donne 2€5 
ordres et ensuite tout 
se fait tout seul. I! 
suffit de donner les 
nons des fichiers 
interesses, et RTK pour 
terainer. 
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18 !  COPCAS 

28 ! J.Dutertre 

36 1 13 nov 87 

ag i 

58 DIX F$(256] 

68 INTEGER I,J,K:L1(25) 
74 RESTORE 10 @ F#="" @ 
k=1 

86 FOR 1=1 TO 25 

9e DISP 
“fichier"ilivers 
cassette"; 

184 INPUT “7? “iT$ 

118 IF T$="" THEN 168 
128 LICI)=LENCT#) 

134 FI 

144 F$=F$ÈTS 

158 HEXT I 

168 FOR I=1 TO 

178 F1$=F$CK,K4L1(13-11 
188 K=K+L1C1) 

198 DISP “on sauve 
“;FA$;" sur :ca" 

284 COPY Fi$ TG 
Fi$£":ca" 

218 HEXT ! 

224 DISP “teraine.” 

238 ENI 


14 !  NETTCAS 

28 !  J.lutertre 

34 1 13 nov 87 

48 : 

58 DIM F$[256] 

68 INTEGER 1,J:K,L1025) 
78 F$="" @ K=1 

8& FOR 1=1 TO 85 

98 DISP “fichier";li"a 
effacer"; 

188 INPUT *? “:T# 

118 IF T$="" THEH 168 
1284 L{CI)=LENCT#) 

138 JT 

148 F$=F$ÈTS 

158 NEXT I 

168 ON ERROR GOTO 248 
178 FOR 1=1 TO 

188 
F1$=F$LK,K+4L1C1)-118":ca 


198 K=K+L1(1) 

208 BISP “on efface 
AFIN os 

218 PURGE F1$ 

28@ MEXT I 

238 GOTO 258 

248 DISP “pas trouve 
“;Fi$ @ GOTO 2284 
250 DISP “ternine." 
264 END 
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! DUMPCAS 

| M.Martinet 

! ppct !8p22 

! modif J-D.Dodin 

! modif J.Dutertre 

! 13 nov 83 

! pour video 163 

1 

RESTORE 10 € DISPLAY IS ":tv" € DELAY ÿ 

WIDTH INF 

IMAGE ‘'Enreg',x,3z,x,'Octets',x,3z,x,3z,x,3z,Xx,3z 

IMAGE ‘'Enr-',3z,x,'Oct-',3z 

IMAGE 23a,x,8a 

DIM E$[256],R$C256],D$C2],D1$[64],D2$[256] 

INTEGER A,B,C,D,E 

A=ÿ € B=ÿ € E$="" € R$="" € GOSUB 88ÿ 

GOTO 79ÿ 

GOSUB 81ÿ 

SENDIO ":CA","LADL,DDL3",CHR$(@) 
ES$=ENTIO$(":CA","TADL,DDTY,SDA") € R$=E$ 

GOTO 41ÿ 

GOSUB 89ÿ € DISP "patientez..."; 

FOR I=ÿ9 TO 63 

C=NUM(ES$CB+1+1,B+1+1]) 

IF C}32 AND C£128 OR C}169 THEN D1$[I+1J=CHR$(C) € GOTO 399 

IF C=8 THEN D1$[1+1]=-"B" € GOTO 399 

IF C=19 THEN D1$C1+1]="L" € GOTO 399 

IF C=13 THEN D1$C1+1]="C" € GOTO 399 

IF C=27 THEN D1$[1+1]="E" ELSE D1$C1+11]="." 

D=C DIV 16 & E=RMD(C,16) 

IF D19 THEN D2$[3*1+1]J=STR$(D) ELSE D2$[3*1+1]=CHR$(D+55) 

IF Et19 THEN D2$C3*1+2]J-STR$(E) ELSE D2$[3*1+2]=CHR$(E+55) 
NEXT I 

DISP CHR$(27)8&"E"; 

FOR I1=ÿ9 TO 1 

DISP USING 119 ; A,B+32*I,B+32*1+8,B+32*1+16,B+32*1+24 € DISP 
FOR J=ÿ TO 3 

DISP USING 139 ; D2$[96*1+24*J+1 ,96*1+24*J+23],D1$[32*1+8*J#1, 
32*1+8*J+8] 

NEXT J € DISP € NEXT I 

B=B+64 € IF B}-255 THEN B-ÿ 

GOSUB 899 € DISP "suite v * € +} fet edit? ‘"; 

D$=KEY$ © IF D$="" THEN 429 

IF D$=CHR$(132) THEN B-9 € GOSUB 899 € GOTO 69ÿ 

IF D$=CHR$(133) THEN B=-ÿ € GOSUB 899 € GOTO 64ÿ 

IF D$-CHR$(134) THEN B=-MAX(B-128,9) € GOTO 22ÿ 
IF D$=CHR$(135) THEN 22ÿ 
IF D$=CHR$(131) THEN 749 
IF D$=CHR$(137) THEN 77ÿ 
IF D$=CHR$(139) THEN B-MAX(B-64,9) € GOTO 22ÿ 

) THEN GOSUB 819 € GOSUB 89ÿ € DISP "termine" 


IF D$=CHR$(169 
ELSE 419 


SENDIO ":CA","LADE,DDL7","" € END 

GOSUB 899 € DISP USING 129 ; A,B1; 

B1-MOD(B1,64) 

DISP " Hex-(";D2$CB2*3+1,B2x3+2];")= "; € INPUT "";D$ 
D=NUM(D$C 1,11) 

E=NUM(D$C2,2]) 

IF NOT (D}47 AND DC58 OR D}64 AND Dé71) THEN 529 
IF NOT (E}47 AND EC58 OR E}64 AND Et71) THEN 52 
IF DÉ58 THEN C=VAL(CHR$(D))*16 ELSE C=(D-55)*16 
IF E(58 THEN C=C+VAL(CHR$(E)) ELSE C=C+E-55 
E$CB1+1,B1+1]J=CHR$(C) 

GOTO 41ÿ 

GOTO 26ÿ 

B=9 € GOSUB 81ÿ 

IF A=511 THEN A=ÿ ELSE A=A+#1 

GOSUB 884 
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GOSUB 81ÿ 
GOTO 2ÿÿ 
GOSUB 81ÿ 
IF A=ÿ THEN A=511 ELSE A=A-1 
GOSUB 88ÿ 
GOSUB 819 
GOTO 29ÿ 
GOSUB 899 € DISP "modifier octet numero? "; 
INPUT "":B1 
GOTO 52ÿ 

B-ÿ € GOSUB 81ÿ 
GOSUB 88ÿ 

GOSUB 899 € DISP "aller a enreg. numero? "; € INPUT "";A 
GOTO 189 

IF E$=R$ THEN 87ÿ 
SENDIO ":CA","LAD£,DDL4",CHR$(MOD(A DIV 256,2))&CHR$(MOD(A,256)) 
SENDIO ":CA","LADL,DDL3",CHR$(@) 
SENDIO ":CA","LADE,DDL6","" 


IF R$=CHR$(14) AND E$="!" THEN 87ÿ 


SENDIO ":CA","LAD£,DDL6",E$ 
RETURN 
E$="1" € R$=CHR$(14) € RETURN 


DISP CHR$(27)8&"%"&CHR$S(G)&CHR$( 14) ;CHR$(27)&"J"; € RETURN 


Enreg 


43 4F 


02 45 


| Enreg 
45 4E 


07 50 


Enreg 


53 41 


002 Octets 000 008 016 024 


50 43 41 53 20 
EO 88 00 00 00 
00 02 83 11 13 
80 01 20 20 20 


002 Octets 032 


50 41 47 45 37 
EO 88 00 00 00 
00 07 83 01 05 
80 01 20 20 20 


50 41 44 4F 43 
EO 52 00 00 00 
00 06 82 12 30 
80 01 20 20 20 


002 Octets 09% 


20 20 20 20 20 
EO 89 00 00 00 
00 05 83 09 30 
80 01 20 20 20 


002 Octets 128 
4C 45 53 20 20 
EO 8A 00 00 00 
00 01 83 11 24 
80 01 20 20 20 
002 Octets 160 
54 54 43 41 53 
EO 88 00 00 00 
00 02 83 11 13 
80 01 20 20 20 
002 Octets 192 


53 54 4F A° 
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20 x hs 


040 048 056 
35 ENPAGE75 


072 080 088 


002 Octets 064 


20 ENPADOC. 
DE fous 


136 144 152 


20 SALES... 


168 176 184 
20 NETTCAS. 


200 208 216 


10 


Enreg 


41 5A 
20 20 
00 00 
13 25 


Enreg 


45 4E 
20 20 
00 00 
01 50 


Enreg 


4F 4C 
20 20 
00 00 
14 17 


Enreg 


FF FF 
FF FF 
FF FF 
FF FF 


Enreg 


D7 C6 
1D 9C 
43 20 
00 00 


Enreg 
20 20 
45 37 
30 00 
70 65 


Enreg 


fF €7 
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003 Octets 000 


45 52 54 41 43 
EO 52 00 00 00 
00 01 83 11 24 
80 01 20 20 20 


003 Octets 032 


50 41 47 4F 4C 
EO 88 00 00 00 
00 08 83 11 06 
80 01 20 20 20 


003 Octets 064 


59 20 20 20 20 
EO 88 00 00 00 
00 01 83 11 06 
80 01 20 20 20 


003 Octets 09,6 


FFFFFFFF FF 
FF FF FF FF FF 
FF FF FF FF FF 
FFFFFF FF FF 


014 Octets 000 
10 05 BE 54 EE 
45 4E 50 41 44 
00 00 00 00 00 
00 00 10 00 OD 
014 Octets 032 
22 45 4E 50 41 
35 22 20 00 01 
4A 20 20 4C 65 
74 69 74 20 70 


014 Octets 064 


Pase 


008 016 024 
20 AZERTAC. 


040 048 056 


59 ENPAGOLY 
LE «4% 


104 112 120 
FF 
FF 
FF 
FF 
008 016 024 


ED WF..%Tnm 
4F ..ENPADO 


040 048 056 
47 .."ENPAG 
20: E75 "us 
20 0.J..Le. 
72 petit.pr 
072 080 088 


T naramme 
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HP — 41 


J PIVIDAL T7e 

pPRn “es 

e1:0@82 18/@9 

@1LBL "TIR" 

FIX @ SF @2 SF @1 , 
STO 14 STO 15 SETSW 
RUNSW CF 26 CLST “°T" 
XYZALM SF 26 CLA 
XTOA ASTO @@ CLA 
XTOR ASTO CLA 
XTOR ASTO CLA 
XTOR ASTO CLA 
XTOR ASTO CLA 
XTOA ASTO CLA 
XTOR ASTO CLA 
XTOA ASTO CLA 
XTOA ASTO CLA 
XTOAR ASTO CLA 
XTORA ASTO CLA 
XTOA ASTO FS? 
GTO 32 La gachette est la touche ON, le canon le Flag 1 

GSLEL, “T" 

M——h——H——#——#" AVIEUW __ Dans un premier temps, on voit défiler des 
SF 25 CF 99 CF 26 hommes (XX) protégés par des boucliers Î. Il faut détruire 
CLST "ST" XYZALM d'abord les boucliers. 
SF 26 CLA RCL 18 6 
X(>)Y — 12 MOD STO 13 
ARCL IND 13 ATOX 
GTO IND X Si vous ratez toutes les cibles, elle inscrira "LOUPE - 4" 
86LBL 1 et décomptera 4 points. 

REL 14 6 X{=Y? GTO @2 : | 
2 ST— 15 "BOUCLIER -2" Après avoir détruit tous les boucliers, vous 
AVIEW TONE 4 SF 6e pourrez détruire les hommes. 
TONE 4 GTO 32 

99LBL @E 

“DETRUIT" AVIEW TONE 9 
SF @2 TONE 9 1 ST+ 14 
12 RCL 14 X=Y? GTO @3 
“ “ ASTO IND 13 

113LBL 3e 
FS?C @2 GTO @4 4 ; 
ST- 15 “ LOUPE —-4" L'exécution de ce PR nécessite : 
AVIEW TONE 4 TONE 3 Le louis te 


. Le Module xF 
. et SIZE 16 


J. PIVIDALTI2 


Ce PR est tiré de l'article P 43 de 
l'OP N° 16 


C'est un jeu qui consiste à toucher des cibles 
mobiles. 


© + FU me FU pe FU ee FU me FU ee PU 


Fm 


Si l'on touche un ff , la "41" inscrit "Bouclier=2" et 
décomptera 2 points à votre score futur. 


Le calcul des points est déterminé d'après le temps passé 
et les coups manqués. 


Pour arrêter la "41", appuyer plusieurs fois 
sur "ON" (l'astuce est basée sur le principe des alarmes 
périmées). 


122LBL @4 

s STO 12 CLA ARCL 698 
ARCL ARCL 

ARCL ARCL 

ARCL ARCL 

ARCL ARCL 

ARCL ARCL 

ARCL AVIEW SF 25 

CF 99 

141LBL 60 CHER Jean-Daniel, 


1 ST+ 18 FS?C @3 : : 
GTO 00 SF @3 RCL 12 Je vous envoie un programme de jackpot. 


Le programe necessite l'imprimante, Bie: que le pro- 
Fo TONE IND X granne soit realisé aves le Lecteur de carte et le 

À Functions, on peut le modifier : ‘ 
1S2LBL 03 , p pour s'en passer 


CLA STOPSW 1668 RCLSW l'utilisation du programe est simple : 


HR 10 % / RCL 15 + - Lancer le progranme avec XEQ'JACK 
ARCL X "“ POINTS" - Entrer Les codes BLDSPEC au momant ou le progr- 
AVIEW @ XF .END. aume le demande. 


= 
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T 299  MARINU Puilippe 


ÿous avez ÎE 5 
3 fiaure 
3 barres = 5 
È identiques 
une partie = 
votre argent=ig,f 
Hé Lam £ 
perdu 
votre argentz=3,$ 
Éé II 
PiSAUEZ VOUS VOS Jan 
ÉRINist 
perdu 
votre argentzi, f 
CR ILE F: 
perdu 
votre srgent=r, $ 
Elie ++ 
PISAUEZ VOUS LOI 3ains 
3393hE 

5 + 
uotre argent=li,f$ 
Hi 4 EH 
PiSAUSZ VOUS VO: 33ins 
HIHI Et 
383hNE 

26.+# 


votre arsent=35.i 


BieLBL “JACK* 

CF 12 FIK@4 8.967 
RDTAX 6.885 STO 83 
“ALER 7° PRONPT ST0 iE 
18 ST0 88 SF 13 
“VOUS AVEZ 18 $" FRA 
“3 FIGURES IDENT” 
"HIQUES=28$" PRA 

“3 BARRES = 568$" PRA 
“2 IDENTIQUES= 2° 

"+ OU 5$" PRA 

"UNE PARTIE = 1$" PRA 


26+LBL 68 

CF 12 “VOTRE ARGENT=" 
ARCL 88 “+$" PRA 

RCL 88 x=8? GTO “FIN* 
“APPUEZ SUR R/S*  PROMPT 
SF 12 { ST- 88 RCL & 
ACSPEC REG 99 STO ii 
RCL IND # ACSPEC 124 
ACCHR KEG 99 STO 12 
RCL IND A ACSPEC 124 
ACCHR REG 99 STO 13 
RCL IND x ACSPEC 

RCL 87 ACSPEC PRBUF 
RCL 11 RCL 12 X=v? 
GTO 81 RCL 13 X=Y? 
GTO 92 REL 11 x=Y? 
GTO 84 


71eLBL 18 
"PERDU “ AYIEN GTO 88 


75eLBL 8f 
RCL 11 RCL 13 X=Y? 
GTO 83 SF 42 
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CODE BLL:FES 


81+LBL 82 

FC? 82 SF 88 CF 12 

"RISQUEZ VOUS VO" 

"+S GRAINS" AVIER 

XRON 25,17 SF 12 42 

#=Y? GTO 16 CF 86 

CF 82 “GAGNE* AVIEN 
2$" AYIEN 2 

ST+ 85 GTO 88 


182eLBL 64 

SF 81 CF 12 

“RISQUEZ VOUS vQ- 

"+S GRAINS" AYIEN SF 
XRON 25,17 42 K=Y? 
GTO 16 CF 81 “GAGNE * 
AVIEN * 5$" AVIEN 
ST+ 88 GTO 88 


121+LEL 63 
"GAGNE" AVIEN REL 1! 
4 Xx=Y? GTO 85 26 


1294LBL 86 
"  * ARC X “+$* 
AVIEN ST+ 88 GTO 88 


136eLBL @5 
58 GTO 86 GTO 88 


148eLBL 99 

RCL 89 FRC ST-L 1 EZ 
ST V KO L KDY? KE) 
- ISGX STO X RO 8 
ST# Ÿ KG L + INT 

RCL 18 ACOS FRC 

STO 18 RDH RTN 
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163eLBL 16 

KEQ 99 FS?C 88 STO !1 
FS9C G1 STO 12 FS9C & 
STO 13 RCE 86 ACSPEC 
RCL 11 RCL IND # 
ACSPEC 124 ACCHE 

RCL 12 RCL IND X 
ACSPEC 124 ACCHR 

RCL 13 RCL IND à 
ACSPEC RCL 47 ACSPEZ 
PRBUF RCL 1! RCL 12 
X#Y? GTO 18 RCL 3 
KEY? GTO 18 GTO 83 


197eLBL *FIN* 
“VOUS ETES RUINE" 
OFF .ENI. 
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APPEL 


Jacques DURAND 88 Bd NEY Bât IE 75018 PARIS (18)- (T-358), 


S.0.S. . **APPEL, e °PRGM,. . .Se0°S0e APPEL, . . PRGMeee Se0e Se . 


Demande de prgm HP 4I capable 
d'apparier des êkres,objets,etc...à partir d'énoncé du ty 


PEiLtAnglais habite la maison rouge, (æ) 
-L'Espagnol possède un chien, 
-Le Norvégien habite la premiére maison à gauche, 
-L'Italien boit du thé. 
-Le Japonais est peintre, 
-Le propriétaire de la maison verte boit du café. 
-Cette maison verte est à droîte de la blanche. 
-Le sculpteur élève des escargots. 
-Le diplomate habite la maison jaune, 
On boit du lait dans la maison du milieu, 
-Le Norvégien habite à coté de la maison bleue, 
-Le violoniste boit des jus de fruits. 
-Le renard est dans la maison voisine du médecin, 
-Le cheval à coté de celle du diplomate. 


22. QUI ÉLÈVE LE ZÈBRE ET QUI BOIT DE L'EAU, %? 


On boit du lait dans la maison du milieu...Le Norvégien 
est diplomate et habite la première maison qui est jaune, 
c'est lui qui boit de l'eau,..(soit). Et après? 


SOLUTION: Le japonais élève le zèbre,le Norvégien boit 1l' 
eau, 


| Jaune ! Ext.gauc! Norvégie! Diplomat! eau ! Renard 
{ Bleue ! Gauche ! Italien ! Docteur ! Thé | Cheval 
{ Rouge ! Centre ! Anglais ! Sculpte ! Lait #fEscargot 
{ Blanche ! Droite ! Espagnol! Violoni !Jus-de-fr! Chien 

{ Verte ! Ext.Droi! Japonais! Peintre ! Café ! Zèbre 


SVP: 6. VOUS. . . RÉPONDEZ, « » « Se Ve Pe » o À VOUS. « RÉPONDE Z, « ee Se Ve Pe 


(I) - L'Homme de la M.A.S, est sur un tabouret. 
- Celui de l' A,T,E, à la migraine, 
- Le prospectus est dans les mains de l'emplèÿé de 1'A,.S,S 
- L'Homme sur le canapé à une angine, 
- Le canapé est placé à droite du fauteuil. 
- Le Technicien consulte un catalogue. 
- Le Tourneur est assis sur le divan. 
L'Homme placé au centre souffre d'une entorse, 
L Employéde la M.A.T, est le premier à gauche. 
L'Electricien est à coté de l'homme qui lit une revue. 
Le siège du tourneur voisine celui de l'homme qui lit 
un roman, 
- L'Artificier à un panaris. 
- L'Homme de l'A,.T.S. est secrétaire, 
L'Homme de la M.A.T. est placé à coté de l'homme assis 
sur la chaise, 


22.. QUI A UNE CRISE DE FOÏE ET QUI LÏT LE JOURNAL ?? 
QUI?-(ancoisse!) 


ou, QUI T (ce angoisse” -.- 


.E 2. 
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OUADRIMAGIQUE 


DÉCOUVERTE : 


on 
A 
+ 
# 
Z 
O 
de 
< 
ai 
œŒ 
O 


QUADRIMAGIQUE 


UNE OUVERTYWRE 
«t ” 


Nouveau! - LE MEW-PPC-T - nouveau! 


LE PREMIER CLLBE QUADRIMAGIQUE 


Jacques DURANR -88 Bd NEY Bt LE 75018 PARIS - P 17 = T 358 


Fond....Curieux....lnfo....DeDée.,...Fond....Curieux...info 


= Le temps était assez beau,mais l'air froid par ce vent 
d'est, 


- " Je t'aime bien ma petite Graïben ",.,,etc... d'Hupnuf 
(Jura) où il naquit, Alcibiade Ladislas,.. Info...DeDée.. 
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CHER PRESIDENT 


Je n'ai pas trouvé le nom de Mr. Charles DEVIMEUX 
sur la liste des adhérents. Mr. C. D. a éffectué un impor- 
tant calcul sur H.P, 4I CV couplé à imprimante 82143 A. ( 
2240) octets. 

Ce calcul concerne les carrés magiques,tri et qua 
drimagiques,en particulier. Sur demande une copie peut êt- 
re envoyée aux " camarades ",, 

Je propose que vous usiez de l'influence de votre 
Position de PRESIDENT de CLUB d'Informatique Hewlett-Pac- 
kard indépendant H.P,4I CV plus extensions}pour sollici- 
ter la communication,à titre grôcieux,des découvertes de 
Mr. Charles DEVIMEUX,en ce qui concerne les carrés magi — 
ques, trimagiques,et Le premier carré quadrimagique. 


(écrire à l'A.X. 5 rue DESCARTES PARIS Y ) 
Tel. 633 74 25, _ 


Monsieur le PRESIDENT de l'! A, x, 


Nous venons d'avoir connaissance du très important 
travail éffectué sur calculatrice,haut de gamme,Hewlett 
-Packard H.P.4I CV,couplée à l'imprimante H.P. 82143 A, 
par Monsieur Charles DEVIMEUX, 
Ce travail concerne: 
- Le record du monde de carrés trimagiques,(deux carrés), 
du même module (323. 
- Le plus petit carré trimagique de module impair (81). 
- Le premier carré quadrimagique connu,de plus petit mod- 
ule possible (256). 


En tant que Président de Club Informatique Indépen- 
dant,Hewlett-Packard, (H.P, 4I CV plus Extensions ),nous 
sommes très sensibles aux travaux,de haut niveau,dévelop 
pés par votre membre Monsieur Charles DEVIMEUX, 


De tels travaux sont susceptibles de servir de modè- 
les à nos quelque quatre cents adhérents,de développer 
une saine émulation au plus haut niveau,d'approcher une 
variété de problèmes encore embryonnaires,etc... 

C'est dire l'intéret que présente,en eux-mêmes,les 
travaux de carrés magiques.Accessoirement ils ne manque 
ront pas d'être pépinière d'idées diverses,voire inatten 
dues,ainsi qu'il est coutfûme d'observer lorsqu' une idée 
neuve est soumise à un groupe passionné,curieux,et d'es- 
prit alerte, 

C'est pourquoi,Monsieur le PRESIDENT de l' A, X.,3j! 
ai l'honneur de solliciter de votre bienveillance,l'envoi 
à notre Club,du maximum maximorum d'informations concer- 
nant les travaux de votre membres (Idées de base,Commen- 
taires,Listings,Etc...) 


Dans l'espoir de n'avoir pas été par trop importun, 
malgré la primauté d'intérêt porté à nos adhérents,je vo 
us prie,Monsieur le PRESIDENT de l' A. X.,de croire à 
mes bien respectueux sentiments,et d'assurer Monsieur 
Charles DEVIMEUX de toute ma considération admirative 
pour ses travaux, p. P. C. 


Le Président du PPC-T 77, nue du Cagire 


Mr Jean-Daniel DODIN 34400, JULOUSE 
77 Rue du CAGIRE 3II00 TOUIQUSE c ppRÉ (DENT 





PPC-T No 19 MARS-AVRIL 1984 Page 24 


----vous posez des problèmes fortintéressanés- 
(le Fresident) 


à 
RUBRIQUE=BRAQUE (HARD) 


Chaud partisan du "Principe de Moindre Action" 
cher à HAMILTON....(et à quelques autres)-Partage ce 
grand Principe avec Président - STOP = Très honoré - STOP 
Bouffi d'orgueil - RE-STOP = Me suis consolé avec Beaujo— 

ais nouveau,bien arrivé - STSGGRHH-HIC!I-S6PP - 

seréz sevrés de Polgnômes Orthogonaux = STOP — 
Pourtant très envie de ÉLISSER - STOP - Sans doute séquel- 
les Beaujolais - STOP - Serez privés de lissages - Bien 
fait pour vous - STOP - Avez loupé New-polynomiales-Degré 
geranti - Qualité Extra - STOP - Moindres Çarrés Désuets, 
Polynômes Orthogonaux de pointe -STOPFFFUUIIITTEt,.. — 

Urgence constituer BUREAU pour seconder Président 
- STOP - £Ht engager Secrétaire(e) pour soulager BUREAU = 
STOP - M'engage à seconder et soulager secrétaire(e) - St- 


TrOPéz — _ ns és , 
= FORTITUDE VÉRBANTED, D. ( ar prégidé) 
"Ah j'te Hâ-T, j'te Hâ-T,dans l'âme" Hugo TVictor),Sce- 
! 


Acte TITI Humour Souhaïité 


Mr jacques DURAND 88 Bd NEY Bt IE 75018 PARIS -P 17 =T 358 


@ uamd AA M ave de Deco... (dan), à ad dnnlE done , - 
EX COMA Me LÉ peul onnAven, on Veu# œmuunes -… . elim me Ec 


cle La plaque. GnVere, fat Eté, elramr L are perçu. 
TLuelle. . J x Pre comneiomte. de valre L AREOR clhrurl, de 


gualté, el .….« eine ‘ D: ‘ 
Ces ex cure vent purement Jrerclentkèlle, - Elle 
«nplguent Lx Nom - perhh cxtlin den. formes £ '-Aeomes, gn 
mn pe eu Lead og ionmpaa te 
Le Se penliment AE 
Four ant Lois qu'urdaoh, Du faut 
| Pas Laisser perdre zK ! hmiho , 
Demander le PRGM "S" = M SIZE? ",,/Qui n'a pas son PRGM "Sn 
dieLL *c" 16 FS7E 14 


Ÿ 


Em 
82 “RE 17 SF 1: Pour les quelques unfortunés sens 


Voir 
FS2C 15 << 
os 15@ 14 | X-FUNCT, ce petit PRGOM “ss non 


5 DM Livraisons 
“ pr 2i SF 15 fait apparaître à l'affichage deg Notes 


7 “+eee 22 K() d 
Dans 23 1 E3 le nombre de données réservées. _$ 


9 XC) d 4e 
18 fx 1! 25 INT Ne regrettez plus les 5 s1g- 


26 DEC 
: > 27 512 nes d'un "SIZE?" abscent,dès 1! 


13 SF 1€ 28 - ' " 
14 FS?2C 17 29 CHS ors qu'un seul XEQ "S", SUFFIT, 


15 SF 11 38 RTK 
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MICROCODE 


BARIZIEN Stéphane T149 le 22/0 
39 rue St Fargeau 
75020 PARIS 

























Pour l'instant,voici tois routines destinées 
à étendre les possibilités du XFUNCTIONS.Deux 
d'entre elles permettent d'écrire et de lire des 
cartes de fichiers ASCII;la troisième "parke'" le 
fichier ASCII courant de manière à récupérer la 
place inutilisée entre le dernier "record" et la 
fir du fichier.L'ensemble de ces trois routines 
nécessite l'utilisation de nc XQ adressant le 
XFCN,et donc le module doit être placé dans un 
port fixé à l'écriture de l'EPROM.Dans les car- 
tes que je t'enverrai,le XFCN sera touiours placé 
en page B (port n°1). 


Routine FLPACK Explications et mode d'emploi 





But: Réduire à moins d'un registre la place 
inutilisée dans un fichier ASCII.La fonction dans 
sa forme actuelle travaille sur le "working file", 













Utilisation: Tout simplement "FLPACK" quand 
c'est nécessaire,principalement lors d'une écri- 
ture sur carte ou sur cassette. 





FLPACK 


















Fonctionnement: On commence par rechercher 
le FF qui indique la fin des enregistrements par 

?NC XQ 8°! après initialisàation des flags requis. 
Ce sous-programme place dans N le deuxième reriste 
du "header" du fichier ASCII courant (voir PPCT4pll) 
et dans M différentes choses dont l'adresse du FF 
en question (digits 11-8).Ensuite on recherche le 
début du fichier suivant en utilisant la routine 
8499 qui aioute à A(3:Ÿ) -adresse "MM form",c'est- 
à-dire comme dans le revisitre b mais avec le n° 
d'octet multiplié par deux- la "distance" au même 
format située en R(3:%).NB:cette aûdition est un 

peu spéciale dans la mesure où elle tient compote 

des "trous" entre XFCON et XMFM et que "aiïouter un 
resistre" siosnifie décrémenter À S&X (car toute la 
RAM marche "reculons"),La routine 8480 effectue 

Ja même nnération,h ceci près qu'elle écrit d'abord 






ALL 










F36F 226 GOSUB 883€ 
F318 1R@  CLRABC 

F311 8B8 @ C=N 

F312 226 & C=C#1 K 
F313 8E6 + BC EX X 
F314 6FC p RER 18 
F315 186 F A=C 

F316 241 à 

F317 218 P COSUB 8494 
F318° 606 & AC EX X 
F319 1B8 M NC EX 

FJIA 13€ « 





























Fr & 
œ 



































F 

1 
dans R(3:9) Je nombre YYWY1 (=recherche du reristre F312 2186 P GOSUR 848€ 
suivant en Extended iemory). F31E 886 F B=A  X 
Le coeur de FIPACK est ut morceau de PURFL qui "re- F31F 198 X C=h 
monte" le rioc de mémoire étendue commencant au re- F328 186 F AC X 
gistre indiau“ par À S8&X etfinissant à la fin des F321 1BC CRCR 11 
fichiers (si,si!) de manière à le faire commencer F322 606 + C=B 
au niveau du registre spécifis en : S&X.Ceci se F323 158 T H=C 
passe en BE28;à noter que ce paint d'entrée ne per- 
met pas ü' "allonger" ur fichier,mais seulement F326 108  CLRABC 
de le raccourcir. F327 198 X C=M 







Four terminer,il ne restr plus qu'à écrire le nou- F328 186 F A=C % 
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veau FLSIZE dans le header,en calculant par 82F1 
la différence,en nombre d'octets,entre les deux 
adresses (A etr) précédentes,puis à convertir cet- 
te différence en nombre de resistres par une qi- 
vision par 7.Pour plus de détails,la routine 82F1 
calcule le nombre d'octets entre deux aûresses 

"MM form" en A et B(3:@),où À correspond au reristre 
de plus haut n°.Ce point d'entrée est utilisé pour 
des adresses en XM,sinon il faut utiliser 8390. 
J'espère que vous n'êtes pas en panne d'aspirine! 
De toutes facons,il n'est pas indispensable de 
saisir mon rharabia pour utiliser la fonction... 


Routine d'écriture de fichiers ASCII sur cartes 


Je sais,ça ne fait pas très orizinal,seulement 
c'est en microcode,.., 


En fait,le problème était que les points d'entrée 
du lecteur de cartes sont prévus pour des r"locs de 
registres consécutifs,ilé'est donc avéré nécessaire 
de recopier le fichier désiré dans les reristres 

de données par un simili GETR. 


tilisation!t Spécifier le nom du fichier dans 
le reristre ALP“A,.Si L en est la longueur,le 
SIZF doit être supérieur ou égal à L+2,sinèn la 
routine essaie de l'augmenter puis a'fiche TRY 
AGAIN.Je vous le donne er mille:que faut-il faire? 
Si vous le savez ,écrivez-moi,vous me serez 
d'un grand secours... 
Si jamais vous avez eu la nonne idée de définir un 
SIZE suffisant,votre KP vous demandera les cartes 
nécessaires,à vous d'assouvir son anpétit. 


d'allais oublier: le fonctior s'anpelle WRTFL. 


“onctionnement: Un récupère le header du fic ier 
par 8RY3 ,anrès avoir snécifié B.MS=3 (ascii),dans 
N.La routine FNDEND (173%) de la rom svstème place 
en À S&X l'adresse du ler reristre : MMMPYITSTMNIM ce 
qui permet par soustraction du "rideau" dans c de 
calculer le SIZE actuel.s'il est strictement in- 
férieur à L+2,on anpelle SIZSUR anrès 5FTF Q qui 
tente de reSIZEr à L+2 (?NC YQ 1#9#),puis or se 
branche à ERRTA qui affiche TRY AG4'N,.Dans le cas 
"favorarie",on emprunte à GETR la routine SFC4 var 
le transfert er KAM centrale .I'anothéose a lieu 
en F8C@# ,où on enreszistre sur cartes les registres 
concernés: A S&X indique le rombre de registres, 
C S&X l'adresse du premier reristre à écrire -1, 


Lecture des registres de données no:ir l'onération 


inverse de WRTFL: GEFTRAS 


Utilisation: l‘re étape 


Lire les cartes dans les rerri- 
s'res de données:le STZk doit 
être s'upérieir ou “ral à I4+2, 
où L est la lonrueur du fic. ier, 
Cette lonrueur dnit être rot<e 
sur les cartes à l'écriturr ou 
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F329 @3C ( RER 3 
F32R 8E6 + BC EX X 
F328 305 e 

F32C 288 H GOSUB 82FI 
F32) ME E C=8@ ALL 
F32E 138 8 LI 

F32F 687 G CON 

F334 346 + ?A48 

F331 023 # GONC 

F332 23h : C=C+#1 
F333 1C6 + A=A-C 
F334 3E3 c GONC 

F335 83C € RER 

F336 186 F A=C 

F337 888 8 C=H 

F338 66 & AC EX 
F339 246 + C=A-C 

F33 6FC » RCR 

F338 278 + DADE=C € 
F33C @7C v RCR 

F33D ?2F8 + BATA=C 
F33E 3Ci a 

F33F 0682 B COLONG 88F8 


WRTFL 


F2E9 2DC v PT= 

F8ER @D8 + LC 

F2EB @FE £ BC EX 

F2EC 88 H 

F2ED 220 , GOSUB 9B83 
F8EE @C1 à 

F2EF 45€ v GOSUB 1738 
F2FA GE E C=& ALL 
F2F1 278 + DADI-C 
FeFe 378 l C=RECN 13€c) 
F2F3 830 € RER 3 
F2F4 1C6 + A=A-C X 
F2F5 813 5 GONC ++82 
F2F6 006 F AR X 
F2F7 6E6 + BC EX X 
F2F8 8BG & C=H 

F2F9 226 & C=C#i X 
F2FA 226 & C=C+i À 
F2FB 366 F RC K 
F2FC 033 3 GONC  ++86 
F2FD 248 FT S=1 9 
F2FE 251 # 

F@FF 850 » GOSUR 1797 
F308 65) + 

F381 @BE } GOLONG 2F17 
F382 268 T REGN=C 9€0) 
F383 8C6 + C=B  K 
F384 278 + DADD-C 

F385 198 X C=HK 

F386 2F8 + DATA=C 

F387 3C4 d CLR ST 

F388 8B8 à C=N 

F349 186 F A=C 

F38R 2BC € RER 

F38B 8A6 & 

F38C 1BC < 


F318 238 8 GOSUBR 

F311 846 + C=4 

F312 278 + DADN=C 

F313 378 M C=RECN 13(c) 





Fase 27 


bien récupérée en S&X de Rÿ1 
par NRCL 


2ème étape 


Créer le fichéer en XM.Son nom 
est noté sur la carte,ou bien 
rappelé de RYQ@ par NRCL;pour la 
lonsueur,voir la première étape, 


#B Si vous trouvez cette procédure trop 
complexe,je suis tout disposé à écrire 
une fonction pour l'automatiser;je si- 
gnale aux "petits rusés" qu'on ne peut 
pas lire des cartes par prosramme,étant 
donné que la routine du CARD RFADER ne 
finit pas par RTN., 


3ème étape 


Exécuter GETRAS;on récupère le 
nom du fichier dans le reszistre 
ALPHA (Ah oui,j'avais oublié, 
cela peut servir pour la 2ème 
étape....) 


Fonctionnemert: 19D1 est 13 routire de CLA. 
Pour 8B93,voir WATFL.8FBA est un succédané de 
SAYER; la routine principale de déplarement de 
blocs en 8FFF utilise en N (8:6) l'adresse de dé- 
part,(2:@) l'adresse de destination,et (5:3) le 
nombre de repsistres -]l.Sur femande,ije peux détail- 
ler la signification des flass utilisés,Par souci 
de simolification,le messare d'erreur affirhé 
lorsque le FLSIZE ne corresvond pas est ‘’OMEXI- 
STENT (?NC GO @2E@); je l'ai placé à la fin vour . 
qu'il soit aisément modifiable.A vos idées... 


{MOD Calcule er x le reste,en 7 le anotient ñne 
la division euc'idienne de Y var X.Cf la 
routine QR du PPC ROM. 


Explication du fonctio nement: MOD1Y {195C) 


est la routine de MOD;nécessite le dividende 
en A et le diviseur en X et N ,il faut aussi 
faire SETDEC et CLRF 4 avant l'exécution. 


DV2-19 (1898) est le sous-prorramme de division. 
Nécessite SFTDFC,le diviseur en € et le dividende 
en A.Le résultat est en CU. 


INTFRC (193B) calcule -dans CU- la partie entière 
de C si SETF 5,1a partie fractionnaire dans le 
cas contraire.Nécessite SETDFC, 


/MOD commence par calculer le reste en utilisant 
MODIY,1e sauve dans Y;ensuite on calcule le quo- 
tient "décimal",dont on calcule 1a partie entière. 
Le résultat de ce-te opération est écrit fans %. 
Le ?NC GO 12FD écrit en e‘fet “ ans X,puis échan- 
ge X et Y pour que les résultats snient dans les 
registres indioués au dénut, 
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F314 83C € RER 3 
F315 266 + C=C-1 X 
F316 186 F A=C  K 
F317 278 l C-REGN 9(0) 
F318 66 & AC EX X 
F319 381 A 

F31A 3A8@ COSUB E8C@ 
F31B 3E8 + RTN 


GETRAS 


F2ER 345 € 

F2EB 848 + GOSUB 141i 
F2EC 378 M C=REGN 136) 
F2ED 430 € RER 3 
F2EE 270 + DADI-C 

F2EF 938 8 C=REGCN ACT) 
F2F8 8EE £ BC EX ALL 
F2F1 GE E C=@ ALL 
F2F2 278 + DADI-C 

F2F3 QCE E C=B ALL 
F2F4 168 M REGN=C 5CM) 
F2F5 2DC » PT= 3 
F2F6 6D8 + LC 3 
F2F7 8FE Z BC EX 5 
F2F8 68) H 

F2F9 220 , GOSUB 2843 
F2FA 846 + C=B X 
F2FB 278 + DABD-C 

F2FC 378 M C=REGN 13(c) 
F2FD 930 € RER 3 
F2FE 226 & C=C+i X 
FèFF 8E6 + BC EX X 
F308 806 + C=B X 
F381 278 + DADD-C 

F382 038 8 C=REGN @(T) 
F383 18E NH A=C ALL 
F344 6BG & C=N 

F385 366 + AC X 
F386 887 G GDC  ++18 
F387 6E8 + SEL B 

F388 350 » PT= 12 
F349 8f@ SEL P 
F38A @DC » PT= 
F38B 112 R A=C 
F38C AE . AC EX 
F30D 2F@ + DATA=C 
FI6E 2FC » RCR 
F38F 06 & AC EX 
F318 83C € RCR 
F311 8C6 + C=B 
F312 13C € RCR 
F313 288 H S=1 
F314 2E9 

F315 234 : GOLONG 8EBA 
F316 381 À 

F317 68A J GOLONG 82E8 


cs 


sd OO DE Lef DE 


“MOD 


| FBB4 @44 d S=A 4 

| F885 2A4 SETDEC 
FA8é 888 8 C=REGN 21v) 
F887 18E H A=C ALL 
F888 @F8 D C=RECN 30%: 
FA89 878 + H=C 

F88R 171 a 
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COMPARAISON DES JEUX DE CARACTÈRES HP41-HP 25 - PÉRIPHÉRIQUES 
Eric Gem a0o x T 436 
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BON DE COMMANDE 
Ecrire sur papier libre. Joindre une étiquette autocollante à votre 
adresse. Tous les envois sont franco de port par voie de surface, 
ajouter 10% pour envoi PAR AVION. Tous les règlements doivent être à 
l'ordre de PPC-T. 
Anciens journaux au numéro: les numéros avant le n°8 ne sont plus 
disponibles (voir album 82 et 83 avec les photocopies). n°8 20F, n°9 
20F, à demander à Jean-Daniel Dodin 77 rue du Cagire 31100 Toulouse 
Librairie et coopérative: à envoyer à Jean-Yves Pasquier en dehors des 
vacances scolaires Apt 10, 2 rue de Grèce 31000 Toulouse. L1: William 
Kolb, Curve Fitting 160F. L2: John Dearing, Calculator Tips and 
Routines 160F. L3: Cary Reinstein, HP-41/HP-IL System Dictionnary 
(nouvelle édition) 160F. L4: J-D Dodin, Au fond de la HP-41C (4° 
édition, revue et corrigée) 80F. L5: Keith Jarett, Synthetic program- 
ming made easy 160F. L6: Janick Taillandier, Autour de la Boucle 
(HP-IL) 80F. L7: R. Farrando, 109 programas 65F. L8: Wadmann et 
Coffin, An easy course in programming the HP-41C 160F. L9: Keith 
Jarett, Extended Functions Made Easy, 160F. L10: Jean-Daniel Dodin, 
ENTER (la notation polonaise inverse) 40F. C1: carte des codes HP-41 
couleur 25F. C3: Overlays en bristol perforé, les 10 30F. C7: cartes 
magnétiques HP, les 80 cartes 250F. C8: classeur de cartes magnétiques 
de poche 25F. C9: pochettes A4 pour classeur avec 4 emplacements pour 
cartes, les 10 50F. C10: classeur à anneaux spécial pour C9 (contient 
env. 25 feuilles) 50F. C11: Cassettes magnétiques Verbatim MI80 pour 
lecteur de cassettes HP, la pièce 90F. C12: Papier thermique pour 
imprimante (papier NOIR, n'est pas d'origine HP), les neuf rouleaux 
80F. C13: PPC ROM, le fameux module du club PPCUS, module fabriqué 
par HP, avec manuel de 500 pages; prix aux environs de 1200F, nous 
consulter pour prix et délais. 
Photocopies: à envoyer à Gilles Barret 92 av de Muret 31300 Toulouse. 
P2: PPC East Cost Conference (Avril 82) 50F. P7: Microcode PPC: tous 
les ROMs HP jusqu'en 82 120F. P8: Microcode HP (ROMs internes, 
version HP) 220F. P9: documentation sur HP-IL monitor 10F. P10: 
trésors cachés de la HP-41C (i'O1) 15F. P11: Manuel Technique HP-41C 
60F. P12: Manuel du convertisseur HP-IL 25F. P13: PPC southwest 
conference (Janvier 83) 35F. P14: HP journal Janvier 83 (HP-IL) en 
anglais 20F. P15: Dossier Hard (articles jusqu'en 83, renouvelé 
récemment) 45F. P16: Album PPC-T 82 (1ère année du journal) 50F. 
P17: Album 83 (n°3 à 7) 85F. P18: PPC Orlando Conference (été 83) 
60F. Détails sur le contenu des photocopies dans PPC-T n°8 p 9 et 
n°suivants (voir "Sur le Marché!''). Microcode PPC II (la CX et tous les 
modules absents du Tome | en préparation, nous consulter. Ceux qui 
s'intéressent à l'assembleur du 75C, consulter J-D Dodin. 
Bordereau de soumission d'articles: à recopier (pour la partie qui 
vous concerne) et à joindre à toute proposition d'article. Ceci est 
destiné à permettre un classement plus rationnel des articles du 
journal, comme le demande la grande majorité des adhérents. Soyez 
coopératif, merci. n°T, NOM, Prenom, Adresse, L'article ci-joint doit, 
$i il est publié, figurer dans la rubrique : Coin des U-PROS, 
NOP (erreurs signalées dans article déja paru), trucs et astuces, Sur le 
Marché, Microcode, Programmes, Applications, Petites annonces, Réac- 
tions (lettres, courrier), Divers, Autre. I| concerne la machine HP 
ref., autre marque, ref., périphérique, ref.. 
La publication des articles est soumise aux circonstances, selon 
l'appréciation de l'éditeur. Les articles proposés ne sont pas ren- 
voyés. Toujours nous envoyer l'original, conservez la photocopie pour 
vous. Format: tapé à la machine sur 15cm de large, avec un ruban 
trés noir, simple interligne, recto seul. A la main, calligraphié sur 
feuille quadrillée 5x5 sans interligne, largeur 15cm maxi, recto seul, 
à l'encre noire. N'utilisez pas de couleur autre que le noir. Les 
dessins à l'encre de chine sont fortement recherchés. Pour les 
programmes envoyez nous les cartes magnétiques ou les cassettes (un 
support vierge équivallent vous sera retourné). Les fichiers ASCII sur 
cassettes sont acceptés (et même souhaités). Préciser le format 
d'enregistrement, ou, mieux, mettez sur la cassette votre éditeur de 
texte, pour que nous puissions l'utiliser, 
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L'ORGANISATION DE PPC-TOULOUSE 

Cette page sera publiée dans chaque numéro de PPC-T. Seules les 
indications répertoriées dans le dernier numéro du journal font foi. 
PPC-T étant une association sans but lucratif, elle ne fait pas de 
bénéfice, elle est administrée par des bénévoles et ses produits et 
services sont réservés à ses membres. La marge prise sur les produits 
vendus est minimale et destinée à couvrir les frais de fonctionnement. 
Une grande partie de nos produits vient des USA et leur prix est donc 
soumis aux Variations du $. En cas de variation brusque du $ nous 
nous réservons le droit de demander un supplément. 

ASSOCIATION PPC-T 
Association à buts non lucratifs (loi de 1901), PPC-T accepte des 
adhérents dans toute la France et à l'étranger. La cotisation, abonne- 
ment au journal inclu (6 numéros par an) est de 130F au premier 
Mars, 160F au premier Mai et 200F à partir du premier Juillet 84, DOM 
TOM et reste du monde par avion ajouter 50F. Règlements par chèques 
et mandats postaux à l'ordre de PPC-T (Eurochèques acceptés, mandats 
postaux uniquement pour les DOM TOM). l'inscription prend effet au 
premier jour du bimestre qui précède la réception au club du bulletin 
d'adhésion (1er Janvier, 1er Mars...). 
RESPONSABLES DE PPC-T 

Président: Jean-Daniel Dodin (T1) 77 rue du Cagire 31100 Toulouse 
(nouvelles adhésions, journaux de l'année en cours, édition du 
journal, réception des articles). 
Trésorier: Jean-François Sibille (T15) Résidence du Pays d'Oc, rue des 
Genets 31500 Toulouse (renouvellement d'adhésions, problèmes finan- 
ciers...). 
Trésorier adjoint: Jean-Pierre Baudoin (T131) Lieu dit "Les Carabi- 
niers'' Castelnau d'Estretefond 31620 Fronton (fichier). 
Secrétaire: Jean-Luc Basso (T11) 4 rue Jacques Darré 31300 Toulouse 
Secrétaire adjoint: Gilles Barret (T22) 92 av de Muret 31300 Toulouse 
(photocopies). 
Secrétaire adjoint: Jean-Yves Pasquier (T18) Apt. 10, 2 rue de Grèce 
31000 Toulouse (librairie et coopérative). 
Programmathèque: Damien Debril (T33) 38 rue du 8 Mai 1945 59190 
Hazebrouk (envoyez les cartes vierges, elles reviennent pleines). 
Coordinateurs régionaux: 
Bretagne: Franck Lebastard (T35) 10 rue de la Jalousie 35600 Redon 
Paris: Pierre David (T353) 33 Bd St Martin 75003 Paris et Edouard 
Cèhen-Tannoudji (T102) 11 rue Wagner 93150 Blanc Mesnil. 
Lorraine: Dominique Talon (T311) 90100 Courcelle 
Sud Est: Eric Angelini (T102) 14 av Marianna 06000 Nice 
Besançon: E. Piérunek (T76) chez Mme Faivre 27 rue O. David 25000 
Besançon. 
Picardie: Bruno Tredez (T120), 16 chemin St Jean Allonville 80260 
Villers Bocage. 
BELGIQUE: Bernard Branquart (T372) 32 Thiarmont, 7190 Ecaussines 
Belgique. 
Des coordinateurs sont recherchés pour toutes les autres régions. 
Contactez le coordinateur de votre région pour organiser avec lui des 
réunions, démonstrations,...Vous pouvez obtenir un budget du club sur 
présentation d'un projet. Nous pouvons vous imprimer vos convocations, 
des affiches,...Contactez vous-même les concessionnaires locaux, les 
journaux, les autres clubs. Contactez les mairies pour avoir des salles 
de réunions (montrez leur cette page du journal pour confirmer votre 
position, vous nous représentez officiellement dans votre région !) 
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Vsion À (AY JUIN 42) 


MANT Affiche temporairement la mantisse du re- 
gistre X,comme la fonction correspondante des KP 
D 2 1e CE 


Le coeur de MANT est le sous-prosramme DSPCRG, 
qui affiche le contenu du registre C,qu'il soit 
numérique ou ALPHA DATA.En outre,RSTKB a: tend que 
l'on relâche le clavier;cela permet de geler l'af- 
fichage de la mantisse une fois que l'on a éxécu- 
té MANT ,par la pressien d'une touche quelconque,Pour le 
reste du programme,il s'agit simplement de sauver le re- 
gistre à dans Q,puis d'indiquer FIX # , CF28 , CF29 en 
mettant 8 dans le digit n°3 de d.Ensuite on récupère X 
dont en remplace l'exposant par 999 afin de supprimer 
la virgulejen appelle DSPCRG (9B26) pour afficher C,af- 
fichage que l'en temporise par la boucle qui suit (de C=ÿ 
à JNC-ÿ1) .Pour terminer,on attend que le clavier soit OK, 
enfin on restaure à en le récupérant dans Q.Si vous le dé— 
sirez,vous pouvez changer la temporisation en modifiant le 
LDER- Le 


argement 


de X avec un NNN,sans utiliser le re- 
gistre ALPHA, 


Utilisation: UNIQUEMENT PAR PROGRAMME sauf précautions 


particulières, 
Nécessite deux lignes de programme: 


lère ligne: NNN 
2ème lignes chaîne synthétique 
(max. 7 caractères) 


L'ensemble de ces deux lignes remplit la même fonc- 
tion que (chaîne),RCL M , à ceci près que le registre 
ALPHA n'est pas utilisé.La fonction ne vérifie pas que la 
ligne qui la suit est une chaîne de caractèress;si vous éxé- 
cutez NNN en mode calcul,vous obtenez donc un fonctionne 
ment voisin de celui du CRIC ou BYTE JUMPER.La seule dif- 
férence réside dans le fait que NNN saute les éventuels 
“nulls" qui la suivent,ce qui permet son utilisation dans 
un programme qui vient d'être édité (par exemple lors de la 
création de la chaîne si vous n'utilisez pas CHARGE décrit 
dans PPCT n°4 p.24). 


Fonctionnement:GETPCA (2952) place dans A(3:9) le poin- 
teur de programme récupéré dans le registre b,en format MM, 
c'est-à-dire avec le n° d'octet multiplié par 2.Quant à 
NXTBYTA (29B9),i1 incrémente l'adresse située en A(3:@), 
puis face dans C(1:9) l'octet pointé par la nouvelle adres- 
se ; la boucle du début a pour but de trouver où se trouve 
le premiæ octet non nul suivant NNN.On place ensuite en A.MS 
le digit de poids faible de cet octet,qui est donc normale- 
ment la longueur de la chaîne de caractères (ceux qui ne sa- 
vent pas pourquoi se précipitent pour lire "Au Fond" et ne 
remettent leur nez dans le microcode que lorsqu'ils ont 
tout compris ....),et permet de compter les octets à pla- 
cer dans X.Toujours par NXTBYTA,on lit les octets de la 
chaîne,que l'on met "à la queue-leu-leu”"provisoirement dans 
M.PUTPC (2337) recopie l'adresse de A(3:ÿ) dans le regi- 
stre b pour que le programme puisse continuer au-delà de la 
chaînez;pour finir on écrit M dans X après avoir fait monter 
la pile si c'est autorisé : c'est la fonction du point d'en- 
trée LXEX (1229).Si vous avez tout assimilé en une seule 
lecture,bravo,sinon le club est là pour vous soutenir dans 
votre détresse,.., 
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F88B 864 d GOSUB 195€ 
F88C 18E N A=C ALL 
F88D 8B8 8 C=REGN 2(Y) 
F88E GE . AC EX ALL 
F88F 898 ( REGN=C 2(Y) 
F898 6F8 D C-REGN 3(X) 
F891 261 à 
F892 668 + GOSUB 1898 
F893 688 H S=1 5 
F894 GED + 
F895 864 d GOSUB 193B 
F89% 3F5 e 

F897 64A B GOLONG 1?FD 


MANT 


F2E8 688 @ NOP 3 
F2E9 3B8 8 C=REGH 14(d) 
F2ER 268 M REGN=C 9(0) 
F2EB GE £ C=@ ALL 
F2EC QIC A PT= 3 
F2ED 218 P LC 8 
F2EE 3A8 ( REGN=C 14(d) 
F2EF @F8 M C=REGN 3(X) 
F2F8 138 @ LD! 

F2F1 089 I CON 9499 
F2F2 899 Ÿ 

F2F3 62C , GOSUR @B26 
F2F4 ME E C=@ ALL 
F2F5 QIC \ PT= 3 
F2F6 858 + LC 1 
F2F7 26E £ C=C-1 ALL 
FOF8 3FB * GONC +-8i 
F2F9 261 a 

F2FA 688 @ COSUB 8898 
F2FB 278 M C=REGN 9(0) 
F2FC 3A8 ( REGN=C 14(d) 
F2FD 3E8 + RTN 


NH 


F2E7 149 & 

F2E8 84 $ GOSUR 2952 
F2E9 2E5 € 

F2ER 64 $ GOSUR 2989 
F2EB 856 + C=Q XS 
F2EC 2E6 + ?CH8 X 
F2ED 3E3 c GONC  +-84 
FFE 33C € RCR 1 
F2EF HE t AC  S 

8 @4E £ C=8 ALL 
F2F1 158 M M=C 

F2F2 1BE } A=A-1 S 
F2F3 647 ‘ COC  ++08 
F2F4 2E5 e 

F2F5 6R4 $ COSUB 2989 
F2F6 358 M ST=C 

F2F7 198 X C=# 

F2F8 37C » RCR 

F2F9 398 X C=ST 
F2FA 3BB ; GONC 

F2FB @1C \ PT= 

F2FC DD + 
F2FD 88C L GOSUB 

F2FE 198 X C=H 

F2FF 8R5 % 

F388 64A B GOLONG 1229 





Page 37 


PAt Pointer Advance 


PA est une fonction non programmable,destinée à faire avan-— 
cer le pointeur programme d'un nombre donné d'octets,que 
l'utilisateur spécifie par l'intermédiaire de trois "prompts" 
comme pour SIZE ou DEL.J'en profite pour rappeler comment 
l'on indique dans le microcode d'une fonction son type de 
paramètres.Cette information est codée dans les bits 8 et 

9 des deux premiers caractères du nom .La correspondance 

est la suivante: 


le car, 2e car. # OO ol 


00 PAS DE PARAMETRES 


ALPHA 
(2) _ _ G) G) 


LBL (1) GTo 


O1 ALPHA 


10 STO (1) 


11 LBL (1) XEQ (1) 


Ces types de paramètres sont réservés 
à des forctions particulières, 


Notes: (1) 


(2) X,Y,Z,T,L sont autorisés 


(3) munnmnnnn ne sont pas autorisés 


Si le microcode de la fonction commence par un NOP (#99), 
elle est "non programmable";si deux NOP sont présents à 
la suite l'un de l'autre,la fonction est toujours "non 
programmable" ,mais si vous l'éxécutez en mode programme, 
son nom ne sera pas affiché et il n'y aura pas de NULL 
possible,comme pour SHIFT ou BST. 


Les paramètres rentrés par les ____ sont disponibles 
_- heureusement , c'est fait pour çe — à l'usage dans 

le microcode de la fonction : dans A S&X pour les para- 
mètres numériques,dans le registre Q pour les paramètres 
ALPHA (c'est ce qui fait que l'on retrouve,à l'envers, le 
nom d'une fonction que l'on vient d'éxécuter dans Q ) 


Mais revenons à nos moutons... Comme vous devez 
vous en douter,l'utilisation de PA se résumera à XEQ'"PA" 
qui affichera trois tirets "dans" lesquels vous rentrez 
le nombre d'octets dont vous désirez av:incer,par exemple 
pour vous placer au beau milieu d'une chaîne de caractères 
ou toute autre manipulation horrible de programmation syn— 
thétique, 


Description du fonctionnement: 


Quiconque se penche sur la question prend deux risques: 
celui de tomber (...) et celui de buter sur la division 
par sept qui montre son nez à l'horizon dès que revient à 
l'esprit la structure en registres de la mémoire de la 41. 


Je m'en vais donc expliquer,au risque de rabâcher à cer- 
tains ce qu'ils savent déja,comment on divise par un nombre 
donné en microcode,sur'out quand ce nombre a la mauvaise 
idée de ne pas être une puissance de deux,..... 


Je suposerai pour simplifier que le dividende est ini- 
tialement dans A S&X,et cue le diviseur est strictement 
inférieur à 499 (en hexa ,4996 en décimal),ce qui est 
pratiquement toujours le cas.La séquence de division est 
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Fase 38 


PA 


F387 688 & NOP 
F388 81A Z A-@ 
F389 138 @ LDI 
F38A 087 G CON 
F38B 386 F ?A€C 
F38C 827 : G0C 
F38D 1C6 + A=A-C 
F38E 17A 8 A=f+1 
F38F 3E3 c GONC 
F318 OAE . AC EX 


F317 AIC \ PT= 

F318 1C6 + A=A-C 

F319 1C2 b A=A-C PT 
F31R 62B + CONC +445 
F31B 258 H LC 9 
F3IC @1C \ PT= 3 
F31D 1C2 b A=A-C PT 
F31E 1R6 & A=A-1 X 
F31F @RE . AC EX ALL 
F328 328 ( REGN=C 12€b) 
F321 3E8 + RTH 


(compatible ATARI) neuves (gagnées 


(+frais d'envois au besoin) pour un membre 


ne possède pas de consoles vidéo 


T27N Vends cassetes ACTIVISION 


à un concours) cause: 


Le prix sera de 200 FF TTC 





alors la suivante: 


(8/81) 


A=ÿ M 

LDI XXX le diviseur 
?A<C S&x 

JC +94 

A=A=C S&xX 

A=A+1 M 


JNC #4 


lecteur de 


neuf 


etat 


’ 


4 MEV; 


Allez vous chercher un verre d'eau (boire ou 41 sil 
faut choisir...) , cela vous permettra de suivre plus 
aisément (?) mes explications.Commençons par le com- 
mencement: le principe est dit "soustraction répétée", 
autrement dit on soustrait le diviseur du dividende au- 
tant de fois que c'est possible,et on compte le nombre 
de ces #oustractions.Dans la routine proposée,A S&X con 
tient le dividende (ou ce qu'il en reste),C S&X le diviseur 
- il est placé là par le LDI du début,mais vous pouvez 
très bien imaginer qu'il soit le résultat d'un calcul 
antérieur — , la mantisse de À sert à compter les sous- 
tractions.On annule donc en premier lieu A.M,puis on re— 
garde si À S&X est strietement inférieur à C S&X.Si c'est 
le cas,il n'est pas (plus) possible d'effectuer la sous- 
traction,on a donc terminé.Sinon,on soustrait le diviseur 
(C S&X) de A S&X , püis on augmente A.M d'une unité , ce 
afin de prendre en compte la soustraction dans le "comptage". 
Il ne reste plus qu'à repartir au niveau du test pour une 
éventuelle nouvelle soustraction...C'est simple,non ? 
A ce stade,ou bien vous répondez non,et vous avez partiel- 
lement raison,dans la mesure où vous me faites économiser 
l'explication de l'autre méthode (celle qui "consomme" 
moins de microcode) , ou bien vous répondez oui et je vous 
autorise à patienter jusqu'à la publication de la méthode 
ci-dessus mentionnée entre parenthèses .... 


14330 Le Molay-Littry vends 
XF, 


TIME, 


le tout 


Vaillant 92100 Boulogne (1)6200185 


l'intérieur 
3300F 


39 av. 
33 rue de Balleroy 


cause triple emploi 1200F. 
Serge Beaufils (T238) 

HP41C dec 80 avec soudé à 
cartes, module math, livres, 


SA 
8€). 


Je ne sais pas comment j'arrive à être aussi bavard avec 
la machine à écrire,je vais toutefois essayer de vous dé 
tailler PA.Vous avez certainement compris le rôle des pre- 
mières lignes,et même peut-être deviné que la routine de 
division calcule en même temps le quotient (dans A.M) et le 
reste (dans A S&X) ,en tous cas je fais comme si.J'ai donc 
calculé le nombre d'octets et le nombre de registres cor- 
respondant au nombre d'octets introduit au départ (vous 
vous en souvenez ?).I1 suffit à ce moment de soustraire 
ces deux nombres des deux parties du compteur programme,si— 
tué, je vous le rappelle au passage,dans le registre b. 

Si le "déplacement en octets" est inférieur au n° d'octet 
actuellement dans b,il n'y a pas de problème;mais si cette 
condition n'est pas réalisée,il faut diminuer de 1 le n° 
de registre de b (question à 500$: pourquoi ?),puis dimi- 
nuer de neuf le n° d'octet (juste un exemple : si b conte- 
nait 19F1 et que l'on soustrait 2 octets et 1 reg. on ob- 
tient après la première soustraction 1SF9 puis après la 
dsuxième FYFŸ puisque 1 moins 2 donne F .En soustrayant 9, 
on a bien le résultat correct,soit 69EF une fois que l'on 
a décrémenté le n° de reg.) 

Finalement, je ne pense pas que vous puissiez tenir uni- 
quement avec de l'eau...... 


T1 


+ n 


15 


40 mace 


4 


HP-15C rO°2242/137 


ven E£C07T” 


‘’anuel 


La distinction entre les deux cas précédents est faite 
par l'état du "carry flag'' après la soustraction des n° 
d'octet; j'avais auparavant pris la précaution de libérer 
C pour pouvoir charger le "9'",enfin,vous devriez prendre 
des vacances (moi aussi), 


eo 


avec 
DRSPERORENO CREEENRE CEE GS ÉOEEND CnnnD Eenmeuccoe AND DONNE EEERONQN ANDREANE RD APONRADENRNS RSS 1176 Hamelin Jacques vends HP-41C Quad > Time 
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CCCCCCC eGOBEEP »)))))) 


JE SUPPOSE (PEUT-ETRE À TORT) QUE TOUTE PERSONNE SENSEE POSSEDAN 

T UN HP-IL ET LA MAITRISE DE LA PROGRAMMATION SYNTHETIQUE UTILISE COURAMM 

ENT LA FONCTION "eGOBEEP" ET ENTRE NOUS ELLE AURAIT TORD DE 8E PRIVER, OR 

LORS DE LA REUNION À ROMAZY LE 21 JANVIER J'AI PU REMARQUER QUE CETTE FO 

NCTION ETAIT ASSEZ MAL CONNUE ET VOICI DONC UN ARTICLE QUI REMETTRA LES F 
OINTS SUR LES i DE L'HP-IL, 


LA FONCTION eGOBEEP (CODE HEXADECIMAL: A7 3; CODE DECIMAL: 167) P 
ERMET D'AVOIR TOUTES LES FONCTIONS DE L'HP-IL (MEME CELLE NON PROGRAMMABL 
E !!) C'EST À DIRE LES XROMS 28 ET 29 SUIVANT LES VALEURS MISENT AU DEUX 
TIRETS QUE LA 41 NOUS TEND, JUSQUE LA RIEN DE BIEN TERRIBLE À PAR QUE CET 
TE FONCTION N'ACCEPTE NI LA PILE, NI LES INDIRECTS MAIS ACCEPTE TRES BIEN 
; EN REVANCHE L'ALPHA COMME ARGUMENT. EN EFFET SI VOUS ENTREZ UN MOT DE $ 
EPT DE SEPT LETTRES MAXIMUM LA 41 LE RECONNAITRA COMME ... UN LABEL GLOBA 
L ET SI ON MET À À J OÙ à A e ON OBTIENT UN LABEL LOCAL 71717! C'EST D'AI 
LLEURS POUR CELA QUE JE L'AI ASSIGNE À LA TOUCHE LBL. 


APRES CETTE PARTICULARITE INTERRESSANTE REVENONS AUX FONCTIONS D 
E L'HP-IL, GRAND-MERE HP NOUS DIT QUE LES FONCTIONS "LIST", "PRP" ET "NEW 
M" NE SONT PAS PROGRAMMABLES ET CELA EST VRAI OÙ PRESQUE, POUR AVOIR LES 
FONCTIONS DU LECTEUR DE CASSETTES (XROM 28,00 a 28,24) IL FAUT UNE VALEUR 
DE 00 À 24, POUR AVOIR CELLES DU CONTROLEUR LA VALEUR VARIE DE 25 À 41E 
T POUR L'IMPRIMANTE ELLE VARIE DE 64 À 89, LES VALEURS 00, 25, 26, 64, 90 
SONT OBSOLETES CAR ELLES DONNENT LES TITRES CATALOGUES DES FONCTIONS QUI 
SUIVENT. PAR CONTRE LES VALEURS 42, 91 OÙ 92 SONT AMUSANTES CAR ELLES DO 
NNENT RESPECTIVEMENT AVEC LE TIME DANS UN DES PORTS DE LA HP: @@@e TM1C8, 
TMIC ET FINDID, 81 LES DEUX PREMIERES NE DONNENT APPARAMENT RIEN (?) LA 
DERNIERE EN REVANCHE À L'AIR DE TRES BIEN FONCTIONNER PUISQU'ELLE DONNE L 
ES MEMES RESULTATS QUE LA "VRAI" FINDID (XROM 28,28 - eGOBEEP 28). POUR L 
ES FONCTIONS NON PROGRAMMABLES, 03 CORRESPOND À NEWM, 71 A LIST, 77 A PRP 
. SI VOUS LES ENTREZ DANS UN PROGRAMME IL Y À DE FORTES CHANCES QUE VOUS 
AYEZ QUELQUES PROBLEMES (LE PLUS GRAVE EST UN NEWM AVEC UN LECTEUR DE CAS 
SETTES EN MARCHE SUR LA BOUCLE, JE PARLE EN CONNAISSANCE DE CAUSE !?), LE 
PROBLEME QU'ON RENCONTRE C'EST QUE LA HP 41 NE DEMANDE AUCUNE VALEUR, PA 
S DE TIRET(S). ALORS QU'ELLE(S) VALEUR(S) PREND-T-ELLE ? SI VOUS FAITES N 
EWM PAR PROGRAMME OÙ AU CLAVIER LA 41 FERA UN NEWM 03, POUR UN LIST PAR P 
RGM ELLE LISTERA TOUT LE PRGM COURANT JUSQU'AU END ALORS QU'AU CLAVIER EL 
LE LISTERA 71 LIGNES, PRP EST TOTALEMENT INEFICACE PAR PRGM MAIS PAS AU C 
LAVIER, 


(T282) 
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POURQUOI LA HP FAIT-ELLE UN NEWM OU UN LIST AVEC LA MEME VALEUR 
QUE CELLE DE L'eGOBEEP ? TOUT SIMPLEMENT PARCE QUE LA VALEUR MISE SUR LES 
TIRETS DE L'eGOBEEP EST STOCKEE DANS LE REGISTRE À DU MICROPROCESSEUR ET 
C'EST CE MEME REGISTRE QUI SERT POUR CES FONCTIONS DE L'HP-IL,. ET COMME 
eGOBEEP ENTRE DIRECTEMENT DANS LA FONCTION, C'EST A DIRE SANS AFFICHER LA 
FONCTION ET SES TIRETS, IL Y A INTERFERENCE AVEC LA VALEUR DU REGISTRE A 
. VU ?! 


POUR PRP C'EST DIFFERENT CAR L'ARGUMENT EST CETTE FOIS ALPHANUME 

RIQUE ET ALORS LE NOM DU LABEL QUE VOUS METTEZ À PRP SE RETROUVE EN Q. CE 
REGISTRE EST TRES FACILEMENT ACCESSIBLE ET ON PEUT AU CLAVIER Y ARRIVER 
PLUS SIMPLEMENT QUE VOUS N'Y PENSER: EN EFFET FAITE eGOBEEP ALPHA 
TEST ALPHA (EQUIVALENT AU LBL'TEST") PUIS æGOBEEP 77 ET SI VOUS 
AVEZ UN PRGM TEST ET L'IMPRIMANTE OÙ L'INTERFACE VIDEO CE PRGM SERA LISTE 
! TOTAL 10 PRESSIONS DE TOUCHES CONTRE 12 POUR LA SEQUENCE CLASSIQUE AU 
CLAVIER vw WAOH vx MAIS COMME J'AI eGOBEEP ASSIGNE À LA TOUCHE LBL JE NE 
GAGNE RIEN vv BEUH,,, v, 


VOILA QUELQUES PRECISIONS QUI ETAIENT NECCESSAIRES CAR IL EST TR 
ES DESAGREABLE DE REENREGISTRER UNE CASSETTE EFFACEE PAR UN NEWM O3 ACCID 
ENTEL (AU LIEU DU eGOBEEP 02 PAR EXEMPLE), CROYEZ-MOI ! 


HEUREUSE PROGRAMMATION 
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REVEIL 


@1eLBL “REVEIL" 
82 DATE 


98+LBL 48 
89 BEEP 
18 GETKEY 
11 x=87 
12 GT0 88 
13 OFF 
14 END 


Pour les possesseurs du module Time, voilà une alarme 
qui les réveillera tous les jours, à l'heure qu'ils auront 
choisi une fois pour toute, excepté les samedis et dimanches, 
où ils pourront faire la grasse matinée, sans être inquiétés, 


Après avoir entré le petit programme "REVEIL", ci-dessus, 
il faudra programmer l'alarme suivante : 


: 24 ALPHA : PPREVEIL 
: Date 
: Heure 
T 86 Trimborn Marcel 


Page 42 de L'OP N°18, Jean-C£aude CUEFOUT 
GleLEL ‘“S7" nous lance un défi our {aire mieux que son 
G2 .4 PROC! qui calcule £e SIZE sur une HP-41C en 
n'utitisant que Les £onctions classiques (sic) 
G3+LEL GG de £a "41". | | 
A4 SF 25 Ci-contre une version que je propose et qui 
@5S RCL IHD utilise 14 Cctets (sans Le LSL ni Le ENT, con- 
#4 £ormément aux indications de J-C.C.). 
PIN FIXE # XEC "S?2" et c'est parti ! 
ISG # J'indique que fa comraraison de temps d’ 
GTO ä& exécution ne reut être valable que si elle est 
VIEW T faite sur une même machine car Êa vitesse de 
END L'hon£oce (°] est très varniah£e d'une mackine 
à L'autne.l°) 1€ /aut rntcisen qu'i? s'agit de 
L'lontoge interne [oscil£ateur) et non pas du 
modu£e 'TIE'. 

La version que j'ai envouée à L'OP et qui 
sera reut-être retenue (?] utilise 4 Cctets de 
moins. Si nous surprimons Êes Pas #4 € f9, nous 
obtenons fe message d'erreur "MOMEXISTENT" : 
il suffit alons de taren "'ESP' [toucle <-) pour 
fire (e SIZE . 

Je nelance à mon tour ?e d€f£i mais ne me 
dites pas que vous aagnez ? Pctets en surpri- 
mant Le Pas #2 ?...... n© (TI7$+P720) 
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APPLICATIONS 


Philippe (T198)GIRARDET 
54, rue PILLET 
71000 MACON 


Objet: Représentation en code barre des constantes 
numériques (maximum: dix chiffres significatifs) 


Dear Mister DODIN, 


11 est avantageux, lorsque l'on utilise beseucoup 
de constantes numériques de les convertir en code 
barre ce qui évite les erreurs de frappe mais, le 
codage du "CHEKSUM* reste toujours un mystère et son 
décriptage demande beaucoup de persévérance. 

A force d'essais, j'ai découvert une méthode permet- 
tant le calcul de ce fameux code de contrôle. Cette 
méthode est empirique et je la soumet à l'appréciation 
des gentils-membres de PPC-T, 


Un "CHAMPOLIONY a t-il découvert le codage du 
contrôle des lignes de programme ? Je possède le WAND 
depuis janvier 83 et mes recherches en ce sens se sont 
révélées jusqu'à présent infructueuses. Il serait 
pourtant agréable de pouvoir coder certaines fonctions 
dites "synthétiques"... En désespoir de cause j'ai 
commandé un MLDL et je me tourne vers le micro-code 
car ayant reporté à l'année prochaine l'acquisition 
de l'équipement IL (PRINTER+DRIVE+VISU...un rêve?) je 
ne suis pas assez équipé pour continuer mes recherches 
sur les codes barre: je ne possède aucun moyen de 
traçage automatique. 


Ci-joint, donc, le début de mon travail sur le 
micro-code: (cf ue précédeufs > 

un programme de désassemblage qui permet d'obtenir 
grace au code héxa "244" le listing des instructructions 
en mnémoniques PPC 

un programme d'assemblage qui permet d'obtenir 
le code héxa "244" en se servant directement des 
mnémoniques PPC. 

un programme qui charge automatiquement en X-MEV 
un fichier ASCII comportant la majeure partie des 
instructions de type W et 2 et qui est nescessaire aux 
deux programmes précédent. 


Ces programmes comportent toutes les informations 
utiles à leur fonctionnement: il suffit après avoir 
répondu aux questions d'appuyer sur la touche "R/S" 

Ces programmes sont étudiés pour fonctionner avec 
une imprimante mais il peuvent très bien tourner sans 
elle; la sortie des information serra simplement un 
peu plus fastidieuse (PROMPT). 


Je termine ma lettre en me permettant de vous 
signaler que je ne suis pas contre une augmentation 
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67070 


(4 rue Blaise Pascal, 


organise en Juin des stages de formation pour 


Louis Pasteur de Strasbourg 
Leur écrire pour 


L'université 


la 


Strasbourg Cedex) 


HP-41. 


les détails. 


rue Pruvot 92170 


7 


260 33 00 poste 3362, 


tel 


(T101) 
Vanves vends HP41+quad+time+XF+Port XtenderSICAPE+doc, 


François Eckert 45 rue Dr Babin St Germain 


vends HP41CV (4/83) 


Vincent 


Marc 


2500F 


91290 Arpajon 


les Arpajon, 


TIME 500F, XF 500F. 


1800F , 





de la cotisation annuelle si elle peu contribuer à la 
consolidation finançière de notre club et un plus 
agréable journal.(Tarifs étudiants et salariés ?) 


Mes amicales salutations... Fe 


CODES BARRES 
Représentetion des nombres. 


NOTA: tout ce qui suit est le fruit de recherches 
personnelles. Je tiens à signaler que quelques fais 
quand elles sont mal lues, les instructions peuvent 
provoquer des memory-lost; aussi je conseille de 
tester vos codes barres avant toute application. 


NOMBRES DECIMAUX EN MODE "FIX" 


(3/82) 
révisée 


Nombre sur deux octets: 


vends HP41 
(16)341690 


"CHEKSUM* codé sur un octet 


Le nombre débute par héxa 6 

La virgule est héxa B 

Chaque chiffre est matérialisé par sa représentation 
héxadécimale 

Le "CHEKSUMM" est la somme des X octets (digit) 


(T253) 
Tel 


Ex: 4,6 soit: ,6-4-B-6 CHEKSUM:z 
2° chiffre 
virquie 
1° chiffre 
début du nombre 


le tout 800F. 


, 


Camus 71100 Châlon/Saone vends 


Lecteur de cartes (11/82) + batterie 1000F, 82143 (1/83) 1500F. 
33320 Eysines 


mn (CEE Re CE EE mme …— em” 


78400 Chatou vends HP41CV 


l'ensemble 2000F. 
Givenchy 62580 vends HP41 


Donc en code barre: 


18 Mai 
Mermoz 


livres. 


b,6 = 1-B-6-4-B-6 


de Brimont 


Ex: 3,4 6-3-B-4 (6+3+B+4 = 18) 


et 
rue J. 


rue du 


3,4 = 1-8-6-3-B-4 


TIME 500F ou 


12 
236 


27 av 


"CHEKSUM" codé sur un octet modulo 255 


a) Le nombre est inférieur ou égal à quatre octets 


XF 500F, 
Laurent 


Comme précédement il débute par 6 (héxa) 

La virgule est héxa B 

Chaque chiffre est matérialisé par sa représentation 
héxadécimaele 

Le "CHEKSUMr est la somme des octets 


Ex: 6,1413 soit:,6-6-B-1-L1-1-3-A 
Complément pour former 
un octet 


5°chiffre 
L°chiffre 
3°chiffre 
Jl2°chiffre 


virgule 
début nombre 1°chiffre 


(1/81) mauvais état 400F, XF(5/83) 500F 


—— ous (aus um name uen CE Cm 


Alain Goubault 
2/83 1100F, XF 500F, 
T169 Christian Desmigneux 8 rue A. 


1100F, 
Bernard Leroy 


Marcos 
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CHEKSUM: 


=192 (héxa) qui donne 4D2 (Décimal) 


LO2 MDD(255) = 147 
et 147 donne 93 (héxa) 


Donc er code barre: 
6,1413 = 9-3-6-6-B-1-4-1-3-A 
b) Le nombre est supérieur à quatre octets 


Le nombre débute par héxa 6A 
Le "CHEKSUM® est la somme des octets modulo 255 


Ex: D0,021946 6-A;7-B;4-2;1-974-6, 


module 
Casio FX702P 


(PSi) 50F 


HP41C, 
introductory guide" 


1300F , 


CHEKSUM: 


imprimante 


lecteur de cartes, 
6000F .47 rue du Repos, 
HP41C 
vends 
5000F . 
vends 
optique 500F, 


&8D6 MOD(&FF)=8D6 


vends 
c 
l'üun, 


Donc en code barre: 


cartes, 
150F 
an 


0,021946 D-6-6-A-ÿ-B-p-2-1-9-4-6 


75006 Paris 
lecteur 
MEM, 


299792,5 = 6-A-2-9-9-7-9-2-B-5 


Midi 
batterie, 


CHEKSUM: 


31500 Toulouse 


1000F, 
Math, 


: 
© 
Ce 
dv 
T 
A 


67000 Strasbourg 


Bebel, 


cartes 


Cherche 
Games, 


lecteur de cartes, 
the HP-IL system, 


cartes, 


8271= X625 
625 MOD(255)= 115 
%115= 873 
Donc en code barre: 


Cygne 


du 

du 
rue F,. 
de 
vends 


J 
+ 
m 
œ 
© 
> 
© 
3 
Q 
TE 
v 
É 
© 
n 
> 
n 
n 
D 
C 
ü 
> 


livres, 
rue 
4 
lecteur 


299792,5 = 7-3-6-A-2-9-9-7-9-2-B-5 


1rue 

XF 350F. 
71 
modules 


Bernard Melin 


(T135) 
XF, 
Delorme 


Time, 


EX 6,25 :,6-678-275- | donc: 6-6-B-2-5-A 


600F , 
livret d'application games 50F, programmer HP4] 


Bertrand 
Haeusler 


TIME 350F, 


C 
© 
CHEKSUM:  8G66+RB2+85A= 102+178+90=-370 ke 


370 MOD(255) = 115 et 115-873 


l, 


Imprimante 82143, 
Fabrice 

82143 2000F, 
HP-1L/41 


600F , 
T350 Vincent 


JM Granger 
250F 


Math 


œm 
Q 
© 
an 
Le] 


Yves 


6,25 = 7366B25A 


Conclusion: j'espère que cet exposé vous permettra 
d'obtenir facilement le code barre de n'importe 
quelle constante de dix chiffres significatifs (ou 
moins). Bien sur, il reste à tracer les codes barre 
personnellement j'effectue ce travail à la main 
avec un stylo de dessin (RODTRING) equipé d'une 
pointe de 0,5 mm avec des résultats plus ou moins 
heureux. Il serait beaucoup plus avantageux d'établir 
un programme de traçage avec une imprimante IL... 
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LA PUISSANCE DES PETITS CALCULATEURS 
LES POSSIBILITÉS DU HP 41 


EN NAVIGATION _— 
A FÉBET 





par J. HAMELIN A SÉBEZ 
EXPERT NAVIGATEUR { EA2RS 
5 © Ed co] 
ÉSGE 
26bS 
Had | 
INTRODUCTION 


1) on dire calculatrice, calculette, calculateur, ordinateur de poche ? Le 
sexe fictif de ces petites machines nous importe peu, seul compte le 
caractère morphologique de leur réussite : « Ah, si nous les avions connues plus 
tôt ! », diront certains. Ce que nous mettons dans notre sacoche, voire notre 
poche en 1983 encombrait une salle entière en 1945. Les ordinateurs tendent 
eux-mêmes à diminuer de volume, l'objectif actuel étant de les loger dans un 
« attaché case ». 


LES PROGRAMMABLES 


Il est difficile, en un article, de passer en revue tous les calculateurs 
programmables que l’on peut utiliser en navigation, citons pour mémoire les 
principaux : TI 58 et 59 de Texas Instrument avec module navigation, la série 
Sharp et ses nouveautés, ainsi que Hewlett Packard HP 41 C, CV également 
avec module navigation (fig. 1). 


Signalons le dernier venu sur le marché, le véritable ordinateur portable, 
HP 75 C qui utilise le langage BASIC et possède un miniclavier de machine à 
écrire. Toutes les possibilités d’interfaces sont prévues : vidéo, imprimante, etc. 
HP 41 possède actuellement ces raccordements. 


La revue de l'EF.N. n° 119, de juillet 1982, a présenté un article de 
B. d'OLIVEIRA qui fait un exposé précis ef détaillé sur les langages employés par 
ces calculateurs (notations AOS et Polonaise) et donne la liste des différents 
logiciels assez modestes offerts sur le marché. 


LES PRÉPROGRAMMÉS 


Ces caiculateurs spécialement conçus pour la navigation comportent 
d'origine une série de programmes spéciaux, citons le Navicomp, très élaboré, 
assez onéreux, qui a fait l'objet d'une description dans la revue de l’ L.F.N. 
n° 107, de juillet 1979, et le calculateur Tamaya (NC 2, NC 77) qui permet un 


dialogue avec l'utilisateur. Lors de sa sortie, en 1976, il fut considéré comme un 
succès, et la possibilité de remplacer la batterie épuisée par des piles du 
commerce est appréciée. 


Malheureusement, ces petites machines programmées ou programmables 
avec module navigation, ne sont que le « prêt-à-porter » des calculateurs et leurs 
logiciels ne s'adaptent pas toujours aux besoins des utilisateurs. Des confusions 
sont parfois fréquentes entre route et cap' Les fabricants s’entourent 
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certainement de personnes très compétentes pour la réalisation des modules, 
cependant ils veulent toucher une population trop diversifiée pour pouvoir 
satisfaire et les uns et les autres. Rien ne peut remplacer le « sur mesure » que 
tous les usagers recherchent. 


HP 41C 


Nous allons être amenés à parler de ce calculateur qui par ses modules va 
retenir notre attention. La lettre C signifie mémoire Continue, et le calculateur 
coupé ou privé momentanément de sa batterie ou de ses piles garde intactes ses 
mémoires et programmes. Un module quadruple le transforme en 41 CV. Ce 
dernier possède quatre entrées ou « ports » dans lesquels on peut enficher : le 
module navigation, les modules extension fonctions et mémoires (un peu le 
congélateur de programmes et de données), un lecteur de cartes avec, en 
alternative, une imprimante, éventuellement un lecteur optique de codes barres 
pour l'enregistrement rapide et sûr des données ou des programmes. L'affichage 
est à cristaux liquides, ce qui facilite la lecture sur une passerelle de navire ou 
dans un cockpit ensoleillé, pourtant de nuit, on risque d’éprouver quelques 
difficultés, si l’on ne dispose pas d'un éclairage suffisant. 

HP 41, comme Tamaya, permet le dialogue total avec l'utilisateur. À tout 
moment, si vous subissez une interruption, une distraction quelconque, le fil 
conducteur n'est jamais rompu, vous savez à quel niveau du programme vous 
êtes resté. L'accès aux programmes est facilité par les assignations de touches en 
mode « user ». 


Cette simplicité d'emploi et la robustesse de cet appareil n'ont pas 
échappé à la NASA, qui a choisi deux de ces calculateurs pour en doter ses 
astronautes de la navette spatiale Columbia. A tout moment, l'équipage 
connaissait les possibilités de liaisons radios autour de la Terre et était en 


mesure de résoudre certaines phases critiques du vol (fig. 2) 


LE MODULE NAVIGATION 41 C 


Dans l'ordre de la notice, nous trouvons la résolution des problèmes 
suivants : 

Orthodromie, distance et route vraie départ. 
Position sur l'orthodromie en fonction de la Rv départ et la distance. 
Loxodromie, route vraie et distance (pour différentes excentricités 
terrestres). 
Position sur la loxodromie. 
Détermination des points du grand cercle par les distances égales ou 
par changement en longitude. 
Estime classique loxodromique. 


Navigation astronomique : éphémérides Soleil, Lune, Polaire, 
57 étoiles et planètes principales. Droite de hauteur (les résultats des 
calculs se font parfois attendre), etc. 

8 Interpolations avec utilisation des éphémérides nautiques. 

9 Calendrier. 

10 Angle horaire à Greenwich du point Vernal. 

11 Transformation de coordonnées astronomiques. 

12 Sur le grand cercle, calcul de la latitude correspondant à une 
longitude. 

La résolution inverse n'a pas été programmée, il faudra réaliser vous- 

même le calcul de la longitude fonction de la latitude. 
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Quelques petites erreurs de «size» se sont glissées dans certains 
programmes. Il faudra prendre soin de mettre l'excentricité au registre (11) 
avant d'utiliser l'estime DR. Il est possible de travailler en degrés minutes et 
secondes en faisant CFOO au clavier ou en degrés minutes et dixièmes de 
minutes avec SFOO. 


PRÉCISION DU MODULE 


Quant aux éphémérides, il est certain que les formules employées ont 
été volontairement tronquées. On obtient moins de la minute d'arc pour les 
étoiles et le Soleil ; moins de 2’ pour Vénus et Mars ; moins de 3' pour Jupiter 
et Saturne ; pour la Lune, plus délicate à prédire, l'erreur peut atteindre 5’ 
d'arc (!). 


RACCORDEMENT DE VOS PROPRES PROGRAMMES 
AU MODULE NAVIGATION 


Ce module a été prévu pour travailler également en sous-programme, ce 
qui fait toute sa puissance. En effet, tous les programmes sont accessibles. Vous 
pouvez rédiger vous-même vos demandes de données avec vos sigles propres, 
puis les brancher au programme approprié du module navigation, ensuite, la 
récupération des résultats vous permet de les afficher toujours selon vos désirs, 
selon le degré de précision attendu, etc. 


Pour faciliter cet accès, la notice du module donne le nom des 


raccordements ainsi que les registres utilisés (fin de volume). Attention à la 
répartition des mémoires, il ne faut pas interférer avec celles choisies dans le 
module sous peine de surprises désagréables. Pour connaître comment les 
résultats sortent du module, il est conseillé d'en faire un listing et de l'étudier. 
La figure 3 donne un exemple de jonction. 


Préalablement, les coordonnées de départ ont été mises sous la forme 
degrés, décimales en RO07 et RO8, celles d'arrivée en RO9 et R10 pour être 
utilisées par le module. 

Les programmes *DR et ‘RL utilisent tous deux l'excentricité terrestre (e), 
s'ils sont employés par la suite, il faudra placer (e) en Ril, sinon 
DATA ERROR s'affichera à l'écran. 

Un programme construit avec le module navigation en sous-programme 
sera à la fois raccourci et amélioré. Prenons les programmes ortho et loxo du 
module, nous pouvons les perfectionner en transposant les coordonnées 
d'arrivée en départ lorsque l'on définit une suite de segments de grand cercle ou 


de ioxodromie. 


LE ses" 
15 8 

16 STO fi 

17 “Nb HPT?* 
{8 PROMPT 

19 570 12 

2A KROÜN “GC” 
21 ROL x 

ee CF 29 

23 FIK ! 
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24 “DIS/EC=" 
25 ARCL * 
26 AVIE 


37 « 
ft 


Fig. 3 


Ce module sera apprécié des astronomes amateurs et des radios-amateurs, 
ces derniers calculeront moyennant corrections la hauteur et l'azimut de 
différents satellites géostationnaires qui leur sont destinés. (Kenneth Newcomer, 
Corvallis Division HP.) 

gieLBL "D+T* 
8? “DATE” 
ñ3 STO 34 
ñ4 “PRESS R/5 AT T° 
45 AVIEN 
96 STOP 
47 “TIME” 
g5 STD 34 
49 RTK 
4 END 

Fig. 4 


MODULE TEMPS 


Avec ce module, véritable horloge à quartz, le navigateur fera appuyer sur 
RS par un aide lorsque la coïncidence astre-horizon de la mer sera effective. La 
figure 4 montre le raccordement du module temps. 


Ce module peut servir à nous alerter avant le passage du Soleil au 
méridien, ainsi qu’en début et fin de crépuscule (observations d'étoiles). 


LES MODULES EXTENSION FONCTIONS ET MÉMOIRES 


ls augmentent considérablement la capacité du calculateur 41 C. 
L'extension mémoires, en navigation aérienne, peut servir à stocker les vents 
moyens en direction et vitesse (exemple : vent du 270° à 30 nœuds stocké sous 
la forme 270.030 en fix 3). La carte météorologique est préalablement carroyée 
en latitudes et longitudes correspondant à notre parcours. Cette grille découpe 
en « cases » numérotées notre route, dans lesquelles les vents seront prélevés 
puis réactualisés. La recherche de la route de temps minimum s'obtient ainsi en 
un minimum de temps ! 


RECOMMANDATIONS 


La programmation demande un travail personnel, les livrets fournis avec 
les calculateurs sont parfois insuffisants. Il faut avoir en tête qu'un calculateur 
calcule juste ce qu'on lui dit de calculer faux, il faut donc être vigilant. 
envisager tous les cas, notamment les cas limites, utiliser de nombreux exemples 
pour la mise au point et le rodage des programmes. Il faut les optimiser si l'on 
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veut gagner du temps dans les calculs; en ce qui concerne le HP 41, il faudra 
travailler le plus possible dans la pile opérationnelle (voir bibliographie). On 
opérera par blocs ou séquences qui seront testées avant continuation. Lors de 
l'établissement du programme au brouillon, il est préférable d'utiliser l'écriture 
en clair de la suite logique des formules et d'attribuer ensuite les numéros de 
registres à employer, la recherche d'une erreur se trouve facilitée, surtout 
lorsque les mémoires sont nombreuses. 


Exemple : Échange des coordonnées d’arrivée en coordonnées de départ. 


Sigles : LDR Latitude estimée arrivée 
GDR Longitude estimée arrivée. 
LD Latitude départ 
GD Longitude départ 


Après distribution : 


LD = RO01 
GD = R0O2 
LDR = RO3 
GDR= R04 


. Un programme doit être le plus simple possible, le mode d'emploi ne pas 
être ambigu et tenir en quelques lignes. Une demande d'insertion sera suivie du 
point d'interrogation, un résultat du signe égal. 


PROTECTION DES PROGRAMMES 


Après de nombreux tests, les programmes devront être enregistrés en 
« privé » (WPRV) dans le calculateur; cela évitera d’avoir accès à la mémoire 
Prgm, ce qui détruirait malencontreusement les instructions. 


Nous avons vu qu'un petit calculateur était capable de s'intégrer 
parfaitement dans un contexte professionnel comme la chambre des cartes d’un 
navire. L'apparition de l'interface vidéo permet l'affichage de plusieurs éléments 
à la fois : position estimée en continu, distance et relèvements par rapport à des 
points de la route. Après raccordement à différents capteurs : Loran C, pilote 
automatique, loch électronique, on peut obtenir la route fond, la vitesse fond, le 
cap à prendre, etc. 

Le plaisancier appréciera la rapidité des résultats donnés par son 
calculateur, lui laissant ainsi une plus grande disponibilité. 

Un calculateur a également sa place dans un cockpit d'avion gros porteur. 
En aviation légère, associé à l'imprimante, il permet d'effectuer rapidement les 
plans de vol aux escales en tenant compte des performances techniques de 
l'avion. 
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CONCLUSION 


Si cet article a pu exciter la curiosité des futurs adeptes de calculateurs 
programmables, d’autres plus expérimentés ont pu regretter l'aspect schématique 
de cet exposé qui a été une sorte de mise en appétit. En tout cas, il ne faut pas 
perdre de vue que ces calculateurs n’ont pour but que de faciliter la préparation 
et le suivi du voyage. C’est un outil supplémentaire qui doit nous permettre de 
dominer les problèmes et nous aider, en gardant l'esprit clair, à comparer les 
différents éléments de notre navigation. 
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CALCUL SUR DES FRACTIONS 


Les nombres complexes ne sont pas les seuls dont 
la représentation nécessite deux nombres. C'est 
aussi le casŸfationnels (ou fractions), dont l'em- 
ploi est plus courant. D'où ce petit programme, qui 
transforme la double pile complexe en double pile 
rationnelle. Le principe est très simple: le numéra- 
teur prend la place de la partie réelle, le dénomina- 
teur celle de la partie imaginaire. 

On dispose de 5 touches d'appel direct de pro- 
grammes,on va donc créer 5 nnuvelles "fonctions": 
Les 4 opérations et simplification avec les éti- 
quettes suivantes: A pour +, B pour — ,C pour x 
D pour + ,et E pour simplification. 


Le prograrre + utilise le fait suivant: 
(a+tib)(c+id)=(ac-ba) + i(ad+bc) 
et 
a , © _ ad+bc 
FU 
le programme utilise donc la fonction multiplication 
complexe, àla site de quoi il transforme (ac-bä) en 
bë, puis échange parties réelles et imaginaire; 

Vous remarquerez aussi que les sous programmes 
8 et 9 sont assez compliqués. Cela vient du fait 
que l'on ne peut utiliser directement le test x=07? 
gui porte sur le nombre complet, partie réelle et 
partie imaginaire. 

Ee sous programme Jutilise (ligne 043) le test 
du érapeau 9 comme saut inconditionnel vers la li- 
gne 045. en cas de dépasserent de capacité,il faut 
baisser le drapeau 9 (éteindre le clignotement) 
avant de calculer. La fin du programme 9 a pour 
effet d'afficher le message "dEn. = O " signalant 
la nullité du dénominateur. Four cela, il faut que 
la matrice E soit dimensionnée à 09,09 ,et avoir 
mis danse les registres 8 et 9 respectivement les 
codes: 00000000BC0080 et 9 320001IDCECOOfO ,aue l'on 
obtient en recueillant les codes des prograrmes: 
x€0yLEL 0/#4#/GTO D/LEL O/xæ#1/D5E I et 
xæ/LELO /LOG/LEL O/LEL 0/... « « . 
Si vous préférez un prograrre plus £simple, vous 
pouvez supprimer les lignes à partir Ce la 048 et 
remplacer la ligne 042 par un RTN ainsi que les 
GTO 7 et GTO 6 des lignes 005 et 022 par des ins- 
tructions provoquant un message d'erreur.5i vous 
êtes pressés, et suffisament sûrs de vous, vous 
ncuvez carrément supprimer les sous-rrsr de test 
vu éénominnteur {cs-prun S ct Sh, veia rent Le ivu. 
plus raride. Le 5I des lignes 050 etO5l corresnonû 
à l'acresse dans la matrice E 99.99 du premier 
registre de commande d'affichage. 51 corres pond 
au cas cas où les matrices sont vides ou Non Ncr- 
ralisées, et que 19 registres sont consacrés aux 
dornées,. 

Le vrogramre E a de quoi faire sauter en l'air 
tout bon HF-iste par le norbre de STO et RCL au'il 
contient: il s'agissait de ne pas faire bouser la 


OZO—-0>7Dn 
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pile. Notons au passage que ce programme travaille 
comme une fonction: aprés son exécution, il y a dans 
LAST x la fraction non simrlifiée. Le programme A 

a aussi cette particularitée. Le programme E a été 
conçu pour simplifier des fractions dont le numé- 
rateur et le dénominateur sont des entiers positifs 
et ii s'est avéré que lorsque lenunérateur est 
décimal, il marche aussi. 

Les modes d'emploi de ces prograrres sont très 
sirples: ont entre les nombres comme des complexes, 
le nmmérateur étant fans la partie réelle, et on 
appelle un des programres. 


Bruno FIGUET T 452 
001 


085 xx)0? (Test) 
GTO 3 


Re Im 
sto Ÿ 


Rayostes , LUE ,8,9 
draprour . O 


label : ABCOE 9374 3 
WE à a = 


XO0-+reæ20 
x Â - RAC 7 


is 0 Re Le 





PPC-T No 12 MARS-AVRIL 1984 Page S2 


PROGRAMMES 


HP41 


T 77 


THOMAS Jean-Alain Gray Le 21 septembre 1983 
4 bis avenue Jean Jaurès 


70100 GRAY 
> 


Cher Jean Daniel 

Pour faire suite à la rubriqu: de programmes 
que j'ai appelé ‘'ébauches'' dans la revue n°4 d2 mars 1983 et 
concernant le calcul de déterminant,je te fais parvenir un 
programme de calcul d'intégrales. 


Celui-ci calcule une intégral: par la méthode 
rapide et précise de Simpson et ne nécessite aicun registre de 


stockage.De plus,il est très court et je te l'envoie sans carte. 


Le principe est le suivant: 


b 
Affichage de f rtoex 


la fonction f(x) étant entrée au label @ÿ (ici 1/X4) 
Description: a est stocké en O et b en N jusqu'à ligne 5 
en M est stocké f(a) (ligne 7) puis 

f(a)+f(b) (ligne 10) 
Ligne 14:Nombre n pair d'intervalles (ici 100) 
Ligne 16: En N est stocké b-a/n 
Ligne 17: Compteur de réitérations n-2/1000 
jusqu'à la fin: calcul et affichage 


Remarque:La seule contrainte de ce programme est que la pile 
opérationnelle conserve le registre b après exécution 
de la fonction en ligne 23 donc que l'on ait: 


t : peu importe 

Z : peu importe 

y : b (de la ligne 18) 
x : valeur 


Ceci impose donc que le calcul de la fonction a'utilise que 
les registres x,y et z. 


Pour terminer,je voudrais donner mon avis sur 
le journal: 

l'agrafage étant léger,personnellement, je 
groupe les six N° d'une année ensemble ce qui donne un ensemble 
correct.Mais le format n'excuse pas un tel bordel (excuse-moi) 
dans la mise en page.Le N°7 qui vient d'arriver est plus cor- 
rect et même agréable.Si la mise en page était soignée et sans 
renvoi aux quatre coins de la revue,je pense que cela serait 
suffisant et ne couterait pas plus cher.De l'ordre S.V.P 


Bien amicalement et sans rancune pour ces 


remarques désobligentes à quelqu'un qui se donne du mal. 


J'espère que <esf mieux 
omaimkmaud- ? | 
\o F4 
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LEL'IH 
END 82 BYTES 


Ai+LBL “IH° 


22 ST0 ] 

23 XE8 08 

ê4 2 

25 FC? 86 

26 xt2 

27 

28 ST+ I 

23 RDK 

34 FC?C 68 

31 SF 66 

32 156 Ÿ 
STO b 
RCL I 
RCE 


à à 


4@+LBL 88 
41 te 
42 xt 
43 1/4 
44 END 





Mr PELANNE J-F 
60 rue Saint-Placide 


75006 - PARIS 


T 191 


Cher Monsieur, 


Je vous propose une version encore améliorée de 
mon prem IN paru dans le N°6 (PPET m%6 P 6) 
En effet il tourne désormais en size O01, 
avez bien lu, en size 001. 
Cette possibilité existe grâce encore une fois à 
la programmation synthétique. Le fait de mettre 
les lignes FF & ASTO M juste avant les registres 
qui permettent de stocker les bornes de l'inté- 
gration, permet de stocker celles ci dans les 
registres N & O et donc de supprimer 2 registres 
numériques ( 01 & O2 }): 
Les lignes 020 à 026 ( dans la première version 
celle du N°6 ) ont été remplacées par : 
RCL N RCL O - 60 & STO M ( lignes 018 à 023, 
nouvelle version }. 
Mais vous me direz, on ne peut plus écrire XEQ 


IND M à la ligne 041, oui il suffit d'écrire à la 


place XEQ FF, en effet l'astuce est là ( le 


s : b-a . s : : 
registre M contient —x- désormais ce qui explique 


le RCL M aux lignes 038 & C48. Le registre N 
contient la borne b de l'intégration ( lignes 
010, 015 & 018 }).Le registre O contient la borne 
a de l'intégration ( lignes 012 & 019 ). 

Le registre M contient FF aux lignes 009,013 & 


Le aux lignes 023,058 


016 seulement et contient 

et C418. 

rour éxécuter le prgm pas de changement 

19 Programmer votre F(X) à étudier en commen- 

çant par LBL FF ( ou autre mais modifier les 
lignes 9OCE et C41. 

Fuis XEG IN. 

a enter b puis R/S et le prem vous donnera 

encore plus rapidement le résultat sous la 


forme 
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oui vous 


IL FAUT BIEN SUR FRG- 
GRAMMER LR FONCTICR 8 
INTEGRER, ET L APPELEF 
FF 


AielEL “IN* 

SIZE? E KV? PSI 

CLA STOP *FF* 

STO \ XC}Y STO 

*EQ IND CO STD 88 RE : 

#EB IND [ ST+ 48 R£: 

RCE } - 68 : SOI 
STE * 


26+LEL 83 

AEG @6 ST+ 84 
68 RCL x Kx=v? 
*EG 86 GTO 67 


ENTERT + 
ST+ @8 RTH 


46eLBL 86 
RCL @8 RIL I + 3 : 
ARCL & PROMPT 


ae 
i= 


EKI 
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Mr PELANNE J-F 
60 rue Saint-Placide 
75006 - PARIS 


T 191 
Cher Monsieur, 


Je vous propose un pregm de conversion de chiffres 
arabes en chiffres romains. 


Il permet de convertir tout nombre N € 4000. 

Ce prgm exploite au maximum les possibilités de la 
pile et de la programmation synthétique ( registres 
d'état M, N, O et le pointeur ROM a ). 


Eplications du prgm : version avec fichier AR 


ci joint une curts megnétique ). 


Lignes 002 à O05 : lise au size automatique si 
la taille mémoire ne convient pas. 


Lignes 006 à 007 : Copie du fichier de données 


en mémoire principale en commençant en ROO. 


Lignes 008 à 012 : Demande d'un nombre et 
stockage en M. 


Lignes 013 à 045 : Utilisation des formules 
permettant la fabrication des chiffres romains. 


Miller = ant À. 


4000 


Cenkune = mt X - 40 nt _X_ 


100 1000 


Drgaine : = an _— 404 _X_ X 


100 


uk ze Ne RS 
10 


Lignes 046 & 047 : Conversion des unités arabes 
en unités romaines. 


Lignes 048 à 051 : Conversivn des dizaines 
arabes en dizaines romaines. 


Ligne 052 : Permet de sauvegarder dans la pile 
la valeur convertit en chiffres romaines des 
unités. 


Lignes 053 à 057 : Conversion des centaines 
arabes en centaines romaines. 


Lignes C58 à 059 : idem que la ligne 052. 
Lignes 060 à 063 : Coyversion des milliers 


arabes en milliers romains . 


Lignes 064 à 068 : Rappel successif des milliers 
(X), des centaines(a), des dizaines(T), et 
des unités(Z). 

Lignes (069 & 070 : Tone puis affichage sous 
la forme N- 


Lignes 071 à 075 : Remise à zéro de tous les 
flags sauf USER et puis féttoyage de la pile. 


Pour convertir un autre nombre faire XEQ (CC. 


A propos de la chaine ( ligne 071 ) le deuxième 





giel 
SIZE? 
-fR" 


88eL 
“"N=2" 
STO 
STO * 
INT 

STO ] 
INT 

= El 
+ RC 
STO 
RCLT 
RCL 2 
RCL I 
RDN 

RCL I 
ARCL 
TONE 
RCL [ 
EXD 
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(CA/CR) 


BL “CA/CR" 
34 K)Y? PSIZE 
GETR 


BL 88 
PROMPT CLA 
E3 4 INT 
RCL CT El 
- El + RCI 
LASTX El : 
RL TI E2 / INT 
+ + REY -Ei 
L [ E2 7 INT 
RCE ] RCL INDE 


Ei + RCL IND# 


RCL [ 28 + 
ND X STO a RDN 
RCL \ 38 + 
ND X "N=" ARC E 
a ARCLT ARC Z 
9 PROMPT *4r+” 
STO d DMY CLST 





caractère détermine le nb de décimales à l'effi- 
chage; dans notre cas il a pour code 06 d'où 
FIX 6. 


Pour créer le fichier AR procéder comme suit : 
19 34 "AR" CRFLD 


29 puis rentrer les données dans les registres 
00 à 33 puis 


39 SAVER. 


Je vous propose une autre version de ce prgm, il 
utilise une carte de données au lieu d'un fichier. 


Explication du prgm : version carte de données 
( ci joint 1 carte de données ) 


Le commentaire est identique à partir du LBL CC 
( la numérotation des lignes est différente, 


3 lignes de plus dans cette version ). 
ceste version m'est pas List ) 


Lignes 006 à 010 : Lit la carte de données et 
stocke celles ci dans les registres O0 à 33. 
L'instruction RDTA équivaut à RDTAX dans notre 
cas. ( cf le listing des données ). 


Prenons qq exemples pour finir : 
N 1983 N MCMLXXXIII 
N 1449 N = MCDXLIX 
N 2017 N MM XVII 


Le zéro n'existe pas chez les romains, c'est 
pourquoi dans le prgm "O" est remplacé par un 
blanc ( space ). 


Le code de la ligne C71 ( version fichier ) et de 
le ligne 074 ( version carte ) est 


F4 34 06 8C OO ROTA En veruou 


244 52 06 128 O0 \ y @xvte 


ASTO 32 Ver 
“MMM”. £a 
ASTO 33 


HAPEY FROGRAMMING 


ET 191 


Mr FELANNE J-F 
60 rue Saint-Flacide 
75006 - PARIS 


ET 191 


Cher Monsieur, 


Je vous propose un programme nommé GAM + , qui 
contrairement à mon prgm FAC ( ppe N°7 ), donne 
pour n entier un ordre de grandeur de la factoriel- 
le ( 9 décimales + 1 exposant Ÿ; mais pour n non 
entier n<14 la précision est de 4 chiffres après 
la virgule et, pour n}>14 très grande précision. 
aussi précis que la fte GAMMA sur la 15C ou la 
34C mais va plus loin puisque N'! peut être calculé 
jusqu'à 71,43 }). 
Tourne en size COCO. 
Ce programme se présente donc en 2 parties, et 
utilise la programmation synthétique. 
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1° partie : Lignes 016 à 079 ( Fte GAMMA .,n 
non entier nç71,43 


29 partie : Lignes 080 120 ( n entier n 569 ) 
Lignes 121 128 ( n entier n£69 ) 


Commentaire du prgm : 


Lignes 001 à 008 : Demande d'un nombre et afficha- 
ge de RUNNING... après l'appui sur R/S. 


Lignes 009 à 015 : Tests 
a) branchement au LBL O4 si la partie fraction- 
naire du nombre est nulle. 


b) si non second test, il permet de savoir si 
le nombre introduit est supérieur ou non à 
71,43 valeur max. Si la réponse à ce test 
est non, alors le programme démarre à la 
ligne 016 et se termine à la ligne 128. 

Si la réponse à ce test est oui, alors 
branchement au LBL 02 c'est à dire demande 
renouvellée d'un nombre celui ci ne conve- 


nant pas. 


Lignes 016 à 079 : Utilisation de la formule de 
STIRLING suivante 


À BL: 4 
É 4130n ee) ré 


F! n\ 
PRO (2) z83n° A2n 
I1 y a un test à la ligne 055, si le contenu du 
registre N est inférieur à 5 E 95, alors le 
prgm se branche au LBL 07 pour un affichage du 
résultat. Sinon le contenu de N est multiplié 
par E-99 afin qu'il n'y est pas de OUT OF RANGE 
lorsque celui ci sera multiplié par 

lignes 071 à 078 ). 
Puis le 99 de la ligne 061 existe parce que 
l'affichage sera de la forme 


N'-=nnn,aaa E 99. 
Lignes 080 à 120 & 121 à 128 


Si la réponse au premier test est positive 
on se branche au LBZL O4 n entier 2 cas se 
présentent 


N £ 69 : Le résultat est immédiat 
utilisation de la fte FACT ) 


NZ 69 : Exploitation des formules 


suivantes 
FRCI 


Nzm.40" awc  mm=int ZI ef m-40 
er T = <ogÂtkog2r.…. + eg W4) + L3(A). 


Le temps de calcul varie avec l'importance de la 
factorielle à calculer, le résultat est de la 
forme 


N'= nnn,aaaaaa E cec 


Cet affichage est commum au cas n non entier et 
n > 69 avec n entier. 


Lignes 129 à 135 : Remise à zéro de tous les 
fliags sauf USER & TONE. 


Pour calculer uüne autre factorielle faire 
R/S. 
Le code de la chaine des lignes 067, 115 et 
124 est F3 4E 2I 3D ou 
243 78 33 61 
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SF 


81+LBL “CA-CR° 
82 SIZE? 
83 34 
84 4277 
95 PSIZE 
86 “AR* 
87 GETR 


BS+LEL 88 
89 “N=?" 
18 PROMPT 
ii CLR 

12 STU I 
13 E3 

14 : 

15 INT 

16 STE * 
i7 RE 
18 Ei 

19 

è8 INT 

2 = E1 
22 * 

23 RCL I 
24 + 

25 ST6] 
26 LASTA 


45 ST © 

46 RL 3 

47 RCL INE # 
48 RELT 

49 Ei 

54 + 

51 REL IRP 
Je RÇL E 

33 RL I 

54 26 

933 + 

96 RCL INF # 
Se STG 8 

38 RIH 

39 RIH 

68 REL * 

ét 36 

62 + 
63 ROC INT À 





Quelques exemples pour terminer : 


N!=17,43 N!=1,224265 E 15 
N!=-64,25 N!-35,597643 E 89 
N!=70,25 N!=54,7253 E 99 
N!=71,43 N'=-5340,4386 E 99 
N'!-80 N!=7,156946 E 118 
N!=300 N!=3,060575 E 614 


Voilà c'est tout 
HAPPY PROGRAMMING 


TL 191 


: Le second caractère de la chaine ( L 129 ) 
détermine je le rappelle le nb de décimales 
dans notre cas le code est 06 ( FIX 6 ). 


Ci joint 2 cartes magnétiques. 


Bhes fem. Domi, 


Al ayant fa de machuns dou À 
man, m4 foimel d'ékhe ct nick 
de fes manuschlé | f'apois que jpetimme 
0: pe 
# dt de ma Le al de prints 
frocene gemetant un momie bidon 
auddoant Le module TM. h ft, 
du ph chi que À Lmpsll 


AE 

et 

ns ct L jam nd: 
fret 

- dinmele de se cet à 

dre un momle  delmal compruss entlé © et 


D 


4 
Z pe nt dou (à 
HH, MMSS cc à ns 1 
momPe alerdons LL valun ou ci 
du momie done a? deusesre. 
0, 5S MM ce ne. ébnl à mon 
cu es Je Ag AE, de ui 
changes avec 4e decomde 4 
L rs PL HA bd age 
Æ plage (a en FX EF) 
ho À E à par 
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64 “H=" 
65 ARCL X 
66 ARCL à 
67 ARCLT 
68 ARCL Z 
69 TOKE 9 
78 PROMPT 
71 “re 
72 RCI 
73 ST0 d 
74 DHY 
73 CLST 
76 EXD 





LBL" ALER” 


Fix # 


ENTER 
où TIME 
o5 FRC 
06 cu À Aaguhe N Rejohe M 
07 ARCL x MMSS cc © 
a3% cLx 
@93  STON MMSS cc © 


49 +, Sséce,” 


(F3 %F 20 0e) 
#4 X<>N SS cc 0,7 


42 FT cc®s; 
(Fs FP 09 00) 


_ 


43 X&>N cc oO, 
DE 


(rs Fr 0000 00 où) 


45 Xx<>7M 

16 CEx 

FC SPP 
A4 SS Mhcc ©; 
A9 0, SSMMece 
ze 

24 

27 

23 
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FS 008 PARIS 


% AGE . mous So mmres 


toujours en auce | 
{o- 


fau. Claude CRTY (9ure TA6$) 


/ 


RIDEAU ! 


Parmis tous les programmes que donne W.C.WICKES dans son livre 
"Synthetic Programming" beaucoup sont encore d'actualité . 

Et il m'arrive encore fréquemment d'utiliser "CODE" ,"DECODE" 
"RREG" et "CU" ; c'est justement de ce dernier que je vais 
vous parler. 

"CU" veut dire curtain ( en français rideau) c'est ainsi 
que Wickes appelle la frontiere entre zone mémoire données et 
zone mémoire programme . Les effets de "CU" sont les suivants 

- +1 XEQ "CU" va déplacer le rideau d'un registre vers le 

haut ainsi R O1 devient ROO et R OO est intégré dans la 
mémoire programme , devant le premier label du catalo- 
que. 
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- -1 XEQ "CU" rétablira les choses , R OO redeviendra R O1 

Le programme de Wickes occupe 87 octets , est suffisemment 
rapide , et restitue Y et Z en X et Y en fin d'éxecution. 

Celui que je vous propose ici ,"CX" fait exactement la 
même chose mais en 49 octets mais , en contrepartie , il uti- 
lise le X-Fonctions ,détruit la pile . Il est aussi plus rapi- 
de et n'utilise aucun flag (contrairement à "CU". 

Comme quoi , même après 2 ans il est difficile de faire 
mieux que Wickes. 

Voici le mode d'emploi : Placer en X la valeur décimale 
du nombre de registres dont vous voulez que se déplace la 
frontière zone mémoire programme , zone mémoire données . 

Une valeur positive de X lèvera le rideau et une valeur 
négative le descendra . 

ATTENTION ! : X positif ne doit pas ètre superieur au der- 
nier size exécuté et x négatif superieur , en valeur absolue 
à la valeur décimale de la position de R OO. 

Faire XEQ "CX" et voila la frontière déplacée ! 


Heureuse Programmation ! 


GEORGELIN Daniel T 57 


PROGRAMMATION SYNTHETIQUE FACILE AVEC LE X-FONCTIONS 


: 


Contrairement à la programmation prévue par H.P. , à 
laquelle on peut s'atteler en n'ayant qu'une vague idée du 
programme que l'on veut créer , la programmation synthétique 
nous force à plus de rigueur d'esprit , en nous demandant 
d'nalyser précisément ce que l'on veut faire , avant de se 
mettre au clavier. C'est qu'on ne met pas n'importe quoi 
dans le registre C. 

Mais en plus de cette gymnastique salutaire , une fois 
au clavier , on se trouve face à un système d'exploitation 
dont la principale qualité n'est pas son sens de la coopération 
pour la programmation synthétique : À vos BYTE-GRABBER , CRIC 
et autres Q-LOADER. 

Heureusement , les Américains (les Français aussi , d'ailleurs) 
ont offert des solutions plus élégantes sous forme de progara- 
mmes tels que "LB" et plus récemment dans le numéro de PPC-USA 
de cet été "LOAD", qui permettent , à partir des codes déci- 
maux de charger ün programme à la place d'un buffer préala- 
blement défini. 

C'est , à mon avis , la que figurent les 2 taches ingrates 
du programmeur "synthétique" 

- Calculer la taille du buffer et l'introduire en mémoire 

- Déterminer le code de chacune des fonctions et les entrer 
octet par octet. 

Deux taches qui rendent ce type de programmation fasti- 
dieuse . Des progrès ont été faits en vue de réduire ces deux 
inconvénients le premier dont j'ai eu connaissance (et à vrai 
dire le seul)était celui de Jacques Vaucelles qu'il nous avait 
montré à la réunion d'Avril de la régioniBretonne. Son pro- 
gramme utilisait un buffer mais permettait l'introduction 
des instructions sous forme symbolique. Le programme que je 
vous propose aujourd'hui fait à mon avis un pas de plus vers 
la facilité : comme buffer vous devez simplement avoir en 
tête de mémoire programme (en tête du catalogue) 2 instructions 
LBL"PRS" END 
Ce buffer , qui plus est vous est restitué intact à la fin de 
l'execution et peut donc être réutilisé de suite. 

De plus les instructions peuvent être rentrées sous la forme 
symbolique: RCL c, STO IND M, STO I M, et STO I 117 sont des 
syntaxes valables , par contre 145 I M donnera des résultats 
incohérents. Pour l'instant , ce programme n'accepte que les 
instructions de la 41 de base donc pas celles des périphériques 
ni des modules d'application (j'y travaille) mais ces dernières 
peuvent être introduites en rentrant directement les codes. 
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BieLEL “RPRO" 

CLRG "TAILLE?" PROMPT 
"PC" CRFLAS &@ SEEKPT 
CF 22 CF 23 


{ieLEL 66 
RCLPT VIEN X CLST AGE 
TONE 9 CLA STOP AOFF 
FC?C 23 GTO 43 


22eLBL Bi 

KEG “TI* ALENG ST+ BE 
RCL 88 22 X)Y? CTD 8 
RCL Z STO 88 APPREC 
GTO 88 


34+LBL 62 
APPCHR GTO 88 


376LBL 83 

FS?C 22 GTO 81 32 CLA 
PASN RELPT INT E + 
3 * ENTER ENTER 
SIZE? KT + PSIZE 

E - KM STO IH Ÿ 

8 SEEKPT XCY 


624LBL 84 
SF 25 GETREC FC? 25 
GTO 85 RCL ] STO IND Ÿ 

E ST-2 RIN RC: 
STO INDZ E ST-T 
RDH RCLC STO INDT 
RON E ST-T Pt 
GTO 84 


BésLBl 85 

SIZE? E - RCL IN? 
E + KEG “Cx “PC* 
PURFL “PRS" SAVEP 
SIZE? E - RCL IH 

E + CHS XEG "Cx" 
SIZE? E - RCL INR * 
E - - PSIZE CikG 
"PRS®" GETP PURFL 

GTO “PRS" 


117eLBL TI" 

#+97 GTC if CF 85 

CF 18 32 POSA x<8? 
GTO 15 “He AROT RATE 
POSR 4367 5F 83 e 
+ ANUN FS7C 22 

E POSE 


139eLEL 86 

ATOX RDH DSE x GTO BE 
Rt ATDX KT FS57 18 
Rt ANUM SF 25 35 

PASH FC? 25 GTS 12 

RCL - STg t Rt STO * 
Rt FS52C 18 CTO 65 84 
- XC8? GTO 47 =? 
GTO 85 7? - x€p? 

GTO 42 LASTE - 


IF4eLEL 67 
ÿ + K)8? 3 X>8? + 
CHS 
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MODE D'EMPLOI 


SIZE ) 1 
Après l'avoir chargé faire XEQ APRO (pour auto-programmateur ) 
Le programme vous demande alors la taille , en registres du 
fichier qui contiendra votre programme ( ajoutez quelques 
registres supplémentaires pour plus de sureté). 
R/S 
Un nombre est alors affiché , c'est la position du pointeur 
dnas le fichier ASCII qui contient le programme que vous êtes 
en train de créer. Ce fichier est organisé en articles de 21 
octets , donc quand est affiché T-1,021 (T ètant la taille du 
fichier) ,c'est que vous êtes à la fin de votre fichier. 
A ce moment vous pouvez alors rentrer : 
- En ALPHA :- une instruction sous sa forme symbolique 
- ou bien une chaine de caractères sans blancs 
qui sera rentrée dans le programme 
- En X: après avoir fait AOFF entrer un nombre entre 1 et 
255 qui correspond au code que vous voulez rentrer dans 
votre programme. 
Si vous avez rentré tout votre programme tapez R/S sans rien 
introduire . Après quelques secondes , la machine s'arrète 
dans la situation suivante: 
- Même SIZE qu'au départ 
- Le programme que vous venez de charger est le dernier 
en mémoire programme 
- Vous êtes positionné dans ce programme 
Il ne vous reste plus qu'a effacer le LBL PRS qui est à la 
fin de ce programme , GTO . 000 (ou RTN) , introduisez le 
label de début de ce programme puis GTO ..pour compacter le 
tout votre programme synthétique est complet , en fin de 
mémoire programme 


LIMITES DE CE PROGRAMME 


Il ne traite pas , pour l'instant , les fonctions des 

périphériques rentrées sous leur forme symboliques 

Il traite mal les LBL GTO XEQ ,numériques ou alpha sous 

leur forme symbolique 

L'exposant raccourci (E) doit être rentré sous forme de 

code 

Les chiffres doivent être rentrés sous forme de codes 
Les limitations précédentes peuvent être détournées en entrant 
en X les codes correspondants. 

Par contre , il y a un certain nombre de problèmes que je 
n'ai pu résoudre : Ce sont les LBL,GTO,XEQ ALPHA et les END. 
En effet , ceux ci comportent dans un chainage , l'adresse du 
END ou du LBL global suivant qui est utilisé par CAT. 

Leur création , même par le biaisdes codes entraine des 
plantages conséquents qui vont du LBL classé NONEXISTENT 

à la perte d'une partie des programmes avec 319 registres 
d'indiqués comme libres alors qu'une partie est occupée par 
ce qui reste des programmes et des données. Comportement 
curieux , à explorer peut être , mais peu pratique. 

Dernière limitation : En raison de la méthode que j'utilise 
pour générer le programme , le code © , rentré en X pour une 
chaine de caractères ne peut être pris en compte. Donc , si 
votre programme comporte un chaine de caractères de ce type 
vous devez , lors de la saisie de l'instruction, rentrer la 
chaine en question en ALPHA par XTOA,puis faire CLX , puis R/S 
Cette chaine figurera alors dans le programme généré , par 
contre , il est impossible de rentrer une ligne de caractéres 
O. 

Voila donc les limitations que j'ai découvertes , peut-être 
en découvrirez vous d'autres ( j'éspère que non). 


PRINCIPES_DE_FONCTIONNEMENT 


J'ai volontairement décomposé ce programme ne 2 parties 
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182LBL 88 
CHS 112 + 


186+LBL 89 

128 FC?C 89 CL& + 
RCL + OATOX XC2Y REN 
CLA XTOA RDN TOR 
RTH 


288+LBL 18 
CLA ZXTOA RTN 


284+LBL 11 

SF 25 32 PASN FE? 25 
GTO 12 RC - 

ATO# CLA KXTOR RTR 


el6eLBL 12 
ALENG 16 NOD 246 + 
XTOR -1 AROT RTE 


226+LBL “Cx" 

RCL c CLA STO! 

AROT ATOX Rt &T 
ST T 7 + + 6 
*TOR FRC 256 # 
E AROT RIT 
.END. 
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distinctes , afin que ceux d'entres vous qui préferent d'autres 


méthodes de programmetion (avec buffer) puissent malgré tout 
utiliser la partie traduction de mon programme. 
- APRO est l'autoprogrammateur lui même 
— TI traduit une instruction sous forme symbolique en les 
codes de cette instruction placés dans le registre alpha. 
— APRO DÉTAILLE 
- Entre LBL"APRO" et LBL OO 
Initialisation de APRO , création du fichier ASCII qui 
contiendra le programme sous forme de codes (Fichier PC) 
- Entre LBL OO et LBL 03 
- Saisie des instructions , ou codes , à traiter 
- Traduction des instructions (XEQ TI) 
- Stockage dans PC qui est organisé en articles de 
3 registres (21 caractères) , si une chaine 
occupe plus de place qu'il n'en reste dans un 
article , elle est stockée dans l'article 
suivant. 
- Entre LBL O3 et LBL O4 
- Effacement de l'assignation de la touche 32. 
En effet celle ci est utilisée dans TI pour 
décoder les instructions. 
- Détermination de la taille nécessaire au stockage 
du programme et ajout à la SIZE de départ. 
- Stockage dans le registre le plus haut de la 
taille nécessaire au stockage du programme. 
- Mise du pointeur à O 
- Entre LBL O4 et LBL O5 
- Rappel du contenu du fichier et stockage dans les 
registres concernés 
- LBL O5 
- Rappel de la valeur du déplacement du rideau 
pour transformer ce qui n'est pour l'instant 
que des données. 
Effacement du fichier qui contenait les codes 
du programme 
Sauvegarde en x-M du programme synthétique qui 
est en début de mémoire 
Rappel de la valeur du déplacement du rideau 
pour recouvrir le programme et le re-transformer 
en données 
Détermination du SIZE d'origine 
Rétablissement à ce SIZE et éffacement du contenu 
des registres 
- Récupération de PRS et éffacement de PRS en X-M 
- TI DETAILLE 
La je vais moins rentrer dans les détails , disons que 
ce programme de décodage est basé sur le même principe que le 
programme EZK ( qui fait des assignations) paru dans le PPC-USA 
de cet été. Ce programme utilisait une astuce géniale basée 
sur le registre ©. En effet , lors d'un PASN , si la fonction 
assignée existe , le 4° octet du registre Q comporte le code 
de la fonction , ainsi la séquence 
32 (ou autre} 
"INT" 
PASN 
RCL Q 
STO P 
ATOX 
fournit en x : 104 , soit le code de la fonction INT 
étonnant , NON ? C'est sur ce principe que fonctionne TI 
- Entre LBL"TI" et LBL 10 
Préfixe et suffixe de la fonction sont séparés, le 
préfixe est traité suivant la méthode ci dessus , 
le suffixe est transformé en sa valeur numérique. 
- LBL 10 
Traite le cas ou figure un code en X et le passe 
en ALPHA ( par XTOA 
- LBL 11 
Traite les fonctions sans suffixe 
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je renaudin T 284 


PRP "Vo" 
14:42  A5.h9 


RieLBL "VOL" 

"RH=" RCE 88 368 MAT 
FIX { CF 29 ARCL # 
"H?< PPOMPT STO 88 
"Yp=e ROLE 21 ARCL X 
“+2 FRONPT STD 21 
“Vu. DEG,=" RL 97 
ARCL X “2 PROMPT 
STO A7 “VW, KT,=" 
RCL 1@ AREL X “+?” 
PROMPT STO if 

"LIST, Mhz ROL 86 
ARCL # “+9  PROMPT 
STO 86 “FUEL FLOW=" 
REL A4 ARCL X “F?" 
PRAMPT STD A4 
"JAUGES=" RÇL 95 
ARCL X "+2  PROMPT 
STO 45 "AM=" RL 25 
ARCE X “+2 PROMPT 
ST 29 


SéeLBl Ai 

ROL 47 RCL 39 + 

STO 28 RCL A8 HET — 
STA Ga SIH RCL 18 * 
PCL 21 % ASIN CHS 
STQ 11 "DERIVES" FI: 
ORCI X BVIEH RTK 


F6+LBL A2 
PEL 11 RCL AS 
STO 13 “CAP=" 
OYIEW PTN 


gSeLBL A3 

RCL A9 RL {1 + CHE 

184 + SIN RCL 43 ST 
PEL 21 +* ©TO 8? 

"VS=" APCL XAVIER 

BTN 


tALBL fé 

REL 96 RCL A2 / HMS 
STA AZ "EST.T,=" FIY 5 
ARCL XAVIER RTK 


ftdeiBl 85 

REL 67 HP RCI Gé x 
STA 123 “CANS,=" ARE 
GYIEW PTH 


124eLRi A6 

RCL A5 REL 13 - 
STO 45 “CARBU. =" 
ARCL X AVIEE PTK 





mn 
F9 


- LBL 12 
Traite les chaines de caractères , mesure leur 
longueur , ajoute 240 et met le caractère résultant 
en tête de chaine 


Comme je l'ai précisé plus haut , ne sont pas traitées les 
fonctions des périphériques et les chaines comportant des blancs. 
Il est à noter que APRO utilise la fonction CX qui est une 
version du "CU" de WICKES , amélioré par mon camarade Daniel 
Georgelin (T57) qui utilise le X-F. D'ailleurs , si tout s'est 
bien passé , il doit figurer un peu plus loin dans ce numéro. 
Sinon, vous pouvez utiliser en attendant "CU" de W.C.WICKES. 


Voila , je reste à votre disposition pour toutes les 


questions au sujet de ce programme , de même que j'attend 
avec impatience les améliorations que vous pourrez y apporter. 


HEUREUSE PROGRAMMATION 


POUGEON Olivier (T62P64) 


Jean Michel Renaudin 204 
Ad duc LS de k mA S 
RP Liste 45 Ju 


k ! | 
#3 pe dl po sata . À CU 


# 4 
w ] n 
&. he Wsnia : co, 
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133418 87 

RCL A9 184 + J6A MOT 
STO A8 KE A{ XEG 2 
ROL 42 ST 15 KES A7 
ST 14 


t46+LBL A8 

REL 19 + 1/X RCL 14 
+ STO AB RL AE + 
"PET" ARÈL X AVIEN 
ETH 


159+LEL 43 
“AUTONOMIE=?*  PROMPT 
HR RCL AR + FIX 2 
HMS “PNP=" AREL & 
ASIER END 


ERENPLE 

RM=2SÉ 

VENT 3157-48 KT 

MITESSE PROPRE TRS 4347 
BISTANCE ETAPE 531 NX 
EUFL FLOR 3,7 TH 

CRRBU. À BORD 14.4 7 


BERIVE=4,8 
CAP=268.8 


CONS, = 
CARBH, 


CAP=72,6 
V£=513.4 
BET=276.6 
AUTANONTE=T 
PNR=! 46 


REGISTRES HTILTSES 


p2 VITESSE SU VE 
Az DUPEF ETAPE 

fé CONSO, HARGTPE 

<EUFI Fi Qu: 

25 CARRI à OR 
Gé BISTANCE FTAPE 
27 VENT DES, VRB 
8 FN 


11 HERIVE à 
M 


té VS PETOUP 
DIVITESSE PROPRE UP 
93 CAREL CONSOMME 
26 VK MOG. 

23 DECLINAISON DM 


ik DERIVE COUCHE 
HENISPHEPE HOPR 
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